<title>??</title>

Option Explicit

Private Declare Function 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) As Long

Const HWND_TOPMOST = -&H1
Const HWND_NOTOPMOST = -&H2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

Public Function AlwaysOnTop(Form1, Optional TopMost As Boolean = True)
  AlwaysOnTop = SetWindowPos(Form1.hWnd, IIf(TopMost, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Function

Private Sub Check1_Click()
  If Check1.Value = 1 Then AlwaysOnTop Me, True
  If Check1.Value = 0 Then AlwaysOnTop Me, False
End Sub

ok... der går nok et par dage før jeg checker om det virker