'Hallo... Krollo
'hier ein Beispiel indem ein Label Control die gesamte Form ausfühlt. Auf 
' rechten
'Mausklick und halten der Maus, kannst Du dann die Form verschieben.
'NG.:06.03.03
Dim blSuccess As Boolean
 
Private Sub Form_Load()
    With Label1
        .Width = Me.Width
        .Height = Me.Height
        .Caption = "Rechte Maustaste drücken, halten und verschieben..."
    End With
End Sub
 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
    blSuccess = True
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, _
  y As Single)
    If blSuccess Then
        'Linke Maustaste = vbLeftButton
        If Button = vbRightButton Then
            With Me
                If .WindowState = vbMaximized Then Exit Sub
                Call .Move((.Left + x) - (.Width / 2), (.Top + y) - (.Height / _
                  2))
            End With
        End If
    End If
End Sub
 
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
    blSuccess = False
End Sub
'MfG
'Frank