[color=blue]Private Declare Function[/color] SetWindowPos _
  [color=blue]Lib[/color] "user32" _
  ([color=blue]ByVal[/color] hWnd [color=blue]As Long[/color], ByVal _
  hWndInsertAfter [color=blue]As Long[/color], _
  [color=blue]ByVal[/color] x [color=blue]As Long[/color], ByVal y _
  [color=blue]As Long[/color], [color=blue]ByVal[/color] cx [color=blue]As _
  Long[/color], _
  [color=blue]ByVal[/color] cy [color=blue]As Long[/color], ByVal wFlags _
  [color=blue]As Long[/color]) [color=blue]As Long[/color]
 
[color=blue]Private Const[/color] HWND_TOPMOST = -1
[color=blue]Private Const[/color] HWND_NOTOPMOST = -2
[color=blue]Const[/color] SWP_NOMOVE = &H2
[color=blue]Const[/color] SWP_NOSIZE = &H1
 
[color=blue]Public Sub[/color] FormImVordergrund([color=blue]ByVal[/color] hWnd _
  [color=blue]As Long[/color], _
  [color=blue]ByVal[/color] OnTop [color=blue]As Boolean[/color])
 
  [color=blue]If[/color] OnTop [color=blue]Then[/color]
    [color=darkgreen]' immer im Vordergrund
    SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
      SWP_NOMOVE [color=blue]Or[/color] SWP_NOSIZE
  [color=blue]Else[/color]
    [color=darkgreen]' normal
    SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, _
      SWP_NOMOVE [color=blue]Or[/color] SWP_NOSIZE
  [color=blue]End If[/color]
[color=blue]End Sub[/color]
 
[color=blue]Private Sub[/color] Command1_Click()
FormImVordergrund Me.hWnd, [color=blue]True[/color]
[color=blue]End Sub[/color]