Option Explicit
 
Private Declare Function SetWindowPos& Lib "user32" _
  (ByVal hWnd&, ByVal WndInsertAfter&, _
  ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, _
  ByVal wFlags&)
 
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
 
Sub Vordergrund()
  SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
    SWP_NOMOVE Or SWP_NOSIZE
End Sub
 
Private Sub Command1_Click()
  MsgBox "bla bla bla"
End Sub
 
Private Sub Form_Activate()
  Vordergrund
End Sub
 
Private Sub Form_Resize()
  Vordergrund
End Sub