Private mdX, mdY As Int32
    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
        mdX = e.X
        mdY = e.Y
    End Sub
    Sub MoveActive(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        sender.Left += e.X - mdX
        sender.Top += e.Y - mdY
    End Sub
    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then MoveActive(sender, e)
    End Sub

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com