Option Explicit
 
' zunächst die benötigten API-Deklarationen
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 Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
 
Private Declare Function MoveWindow Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal x As Long, ByVal y As Long, _
  ByVal nWidth As Long, ByVal nHeight As Long, _
  ByVal bRepaint As Long) As Long

' 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

Private Sub Form_Load()
  Dim x As Long
  Dim y As Long
 
  Me.BackColor = vbRed
  Me.BorderStyle = 0
  Me.Caption = ""
 
  x = ((Screen.Width / Screen.TwipsPerPixelX) - 3) / 2
  y = ((Screen.Height / Screen.TwipsPerPixelY) - 3) / 2
 
  MoveWindow Me.hwnd, x, y, 3, 3, True
 
  FormOnTop Me.hwnd, True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de