OCX ALWAYS ON TOP

'(Module eller Form)
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
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

Public Function AlwaysOnTop(TheForm, Optional TopMost As Boolean = True)
Const HWND_TOPMOST = -&H1
Const HWND_NOTOPMOST = -&H2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
  AlwaysOnTop = SetWindowPos(TheForm.hWnd, IIf(TopMost, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Function
'(Module eller Form)

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

Me = Form1