Private Declare Function SetWindowPos Lib _
"User32" (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 Sub Form_Load()
        'Fenster immer im Vordegrund
        Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
   End Sub