allora:
io voglio far rimanere sempre in primo piano il form 5... quindi faccio cosi:
nel modulo scrivo questo:
e nel form5 scrivo:codice:Private Declare Function SetWindowPos Lib "User32" _ (ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, Y, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Public Sub MakeTopMost(hWnd As Long) SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE End Sub
Facendo cosi rimane sempre in primo piano il form5?codice:Private Sub form5_load() Call MakeTopMost(Form5.hWnd) End Sub

Rispondi quotando