Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function IsWindowEnabled Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub Form_Load()

'VbAndJava 1999/2000
'Guerrault Yonni
'E-Mail : Yonni4@iFrance.com
Dim bl As Boolean
bl = IsWindowEnabled(Me.hwnd)
MsgBox "Est-ce que la feuille est activée ? " + Str$(bl)
MoveWindow Me.hwnd, 0, 0, 200, 200, 1
Me.Show
t = Timer
Do
Me.Caption = 5 - Int(Timer - t)
DoEvents
Loop Until Timer > t + 5
DestroyWindow Me.hwnd
End Sub