In un modulo scrivi
codice:
Public Const HWND_TOPMOST = -&H1
Public Const HWND_NOTOPMOST = -&H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
'------------------
Public 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)
'------------------
Public bOnTopState As Boolean
Public Property Let AlwaysOnTop(bState As Boolean)
Dim lFlag As Long
On Error Resume Next
If bState = True Then
lFlag = HWND_TOPMOST
Else
lFlag = HWND_NOTOPMOST
End If
bOnTopState = bState
Call SetWindowPos(frmMain.hWnd, lFlag, 0&, 0&, 0&, 0&, _
(SWP_NOSIZE Or SWP_NOMOVE))
End Property
Public Property Get AlwaysOnTop() As Boolean
AlwaysOnTop = bOnTopState
End Property
E poi da form...
AlwaysOnTop=True