Visual Basic

Public Class Form1

    Private moving As Boolean = False

    Private Sub Label2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseDown
        ' if the left button has been pressed

        If e.Button = Windows.Forms.MouseButtons.Left Then
            ' Set the flag to show mouse down

            moving = True

        End If

    End Sub

    Private Sub Label2_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label2.MouseUp
        ' The button was released, reset flag.
        moving = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label3.Text = moving
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        Dim eLocation As New System.Drawing.Point(e.X, e.Y)

        If moving = True Then


            Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y
            Label2.Location = eLocation
        End If
    End Sub
End Class