كود جعل الفورم فى مقدمة الشاشة

كود:

Private Declare Sub SetWindowPos Lib "user32" _

(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _

ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

------------------------------------------------------

Private Sub Form_Load()

Timer1.Interval = 1

End Sub

------------------------------------------------------

Private Sub Timer1_Timer()

SetWindowPos Form1.hwnd, -1, 0, 0, 0, 0, 3

End Sub