Public Sub FormOnTop(ByVal hwnd As Long, _
  ByVal OnTop As Boolean)
 
  If OnTop Then
    ' immer im Vordergrund
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
      SWP_NOMOVE + SWP_NOSIZE
  Else
    ' normal
    SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
      SWP_NOMOVE + SWP_NOSIZE
  End If
End Sub

cu
Ralph