Public Class Form1 Private Sub moving(sender As Object, e As MouseEventArgs) Handles Me.MouseMove Me.Text = e.X & "," & e.Y End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Text = "Hello World" End Sub End Class