Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Private Sub Form_Activate() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com MsgBox IsWindowVisible(Me.hwnd) End Sub Private Sub Form_Load() MsgBox IsWindowVisible(Me.hwnd) End Sub