17-10-12, 12:14 AM
كاتب الموضوع : AhmedEssawy
كود :
Private Declare Function SetWindowpos Lib "user32" (ByVal hWnd As long, ByVal hWndInsertafter as long, ByVal x as long, ByVal y As long, ByVal y As long, ByVal wFlag As long) As long
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40كود :
Private Sub Form_Load()
dim retVal As long
retVal = SetWindowPos(Me.hWnd, HWND_TOPMOST, Me.CurrentX, me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End sub