Private Declare Function setWindowPos Lib "user32" Alias "SetWindowPos" _
    (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
 
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
 
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
 
'Bringt das Fenster in den Vordergrund und läst es von keinem anderem Fenster 
' überblenden
Public Function windowONTop(ByVal hwnd As Long, Optional ByVal onTop As Boolean _
  = False) As Boolean
 
  windowONTop = 0 <> setWindowPos(hwnd, IIf(onTop, HWND_TOPMOST, _
    HWND_NOTOPMOST), 0, 0, 0, 0, _
                                  SWP_NOMOVE + SWP_NOSIZE)
 
End Function