Dim CX As Integer
    Dim CY As Integer
 
    Private Sub FensButGrund_MouseDown(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.MouseEventArgs) Handles FensButGrund.MouseDown
 
        CX = e.X
        CY = e.Y
 
    End Sub
 
    Private Sub FensButGrund_MouseMove(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.MouseEventArgs) Handles FensButGrund.MouseMove
 
        If e.Button = MouseButtons.Left Then
            Me.Left += e.X - CX
            Me.Top += e.Y - CY
        End If
 
    End Sub

--------------------------------------

Ich suche zur Zeit VB6 Programmierer. Infos: Dieser Forums-Thread