Private Sub Timer1_Timer()
  Dim nHWnd As Long
  Dim x As Long
  Dim y As Long
 
  ' Handle der MsgBox ermitteln
  DoEvents
  nHWnd = GetActiveWindow()
 
  ' MsgBox positionieren
  x = 0: y = 0
  SetWindowPos nHWnd, Me.hwnd, x, y, 0, 0, SWP_NOSIZE
  Me.Visible = False: Me.Visible = True
  Timer1.Enabled = False
End Sub