' Fenster in den Vordergrund setzen 
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 Or SWP_NOSIZE 
Else 
' normal 
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, _ 
SWP_NOMOVE Or SWP_NOSIZE 
End If 
End Sub