Form - Form sempre in primo piano

' - Form sempre in primo piano
'Inserire la seguente dichiarazione e le costanti in un modulo Bas

'Routine per impostare un form Always On Top:

Public Sub FinestraOnTop(X As Form, Y As Boolean)
'SWP_NOACTIVATE = &H10
'SWP_SHOWWINDOW = &H40
'HWND_TOPMOST = -1
'HWND_NOTOPMOST = -2
Select Case Y
Case Is = True
SetWindowPos X.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Case Is = False
SetWindowPos X.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Select
End Sub
in questo modo sara' sufficiente richiamarla in questo modo:
call FinestraOnTop (me,"true")