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
AppActivate "MsgBox"
  Timer1.Enabled = False
End Sub