Vb.net Label'i Fare Yönünde Hareket Ettirtme

Private Sub Label1_Click()
Label1.Caption = 2 + 3
Label1.Enabled = False
Label1.BackColor = RGB(101, 114, 18)
End Sub

Private Sub Label2_Click()
Label2.Caption = 5 * 7
End Sub

Private Sub Label3_Click()
Label3.Caption = CStr(CInt(Label2.Caption) + CInt(Label1.Caption))
End Sub
 
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = X
Label2.Top = Y
End Sub