|
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Activate()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Is window visible?
MsgBox IsWindowVisible(Me.hwnd)
End Sub
Private Sub Form_Load()
'Is window visible?
MsgBox IsWindowVisible(Me.hwnd)
End Sub
|
|