Private s_X As Long
Private s_Y As Long

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
On Error Resume Next
          ' aktuelle Maus-Koordinaten merken
    s_X = X: s_Y = Y
 
    '----------------------------------------------------------------
    frmMain.ZOrder 0
    Me.ZOrder 1
    If Button = vbRightButton And mMenu = True Then
        PopupMenu frmTrayIcon.mnuTray
    End If
    If Button = vbLeftButton Then Mov = True
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As _
  Single)
On Error Resume Next
DoEvents
 
    Dim lPos As Long
 
    If Button = vbLeftButton Then
        If GetSetting(AppS, "Einstellungen", 0, 0) = 1 Then
              ' Position links
              lPos = Me.Left + X - s_X
              If lPos < 350 Then lPos = 0
              If lPos > Screen.Width - 350 - Me.Width Then _
                lPos = Screen.Width - Me.Width
              Me.Left = lPos
              frmMain.Left = lPos
 
              ' Position oben
              lPos = Me.Top + Y - s_Y
              If lPos < 350 Then lPos = 0
              If lPos > Screen.Height - 350 - Me.Height Then _
                lPos = Screen.Height - Me.Height
              Me.Top = lPos
              frmMain.Top = lPos
              DoEvents
        Else
              lPos = Me.Left + X - s_X
              Me.Left = lPos
              frmMain.Left = lPos
 
              lPos = Me.Top + Y - s_Y
              Me.Top = lPos
              frmMain.Top = lPos
              DoEvents
        End If
    End If
End Sub