'Ti
Const COLOR_CAPTIONTEXT = 9
Private Declare Function SetSysColors Lib 'user32' (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib 'user32' (ByVal nIndex As Long) As Long
Dim Old&
Private Sub UserForm_Activate()
Old = GetSysColor(COLOR_CAPTIONTEXT)
SetSysColors 1, COLOR_CAPTIONTEXT, vbGreen
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
SetSysColors 1, COLOR_CAPTIONTEXT, Old
End Sub