setting a form (or MDIform) out of focus..?

[Abdulrahman]

hi,

how can I set the current active form (or Mdiform as a whole) out of focus in run time?

(i.e to make the blue window bar gray - window out of focus)

cheers!
Abdul

Use the FlashWindow api function.

Declare Function FlashWindow& Lib "user32" (ByVal hwnd As Long, _
ByVal bInvert As Long)

Public Const Flash = 0 'Focus
Public Const NoFlash = 1 'No Focus


Private Sub Form_Activate()
    FlashWindow Me.hWnd, NoFlash
End Sub

[Abdulrahman]

thanks matthew!

If you want to be able to put the Constants in a form, either change them to Const (which is Private by default) or Private Const rather than Public Const.

[Abdulrahman]

yup