Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim g As System.Drawing.Graphics
    Dim maus, hor, i, ver, hor2, ver2 As Integer
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
 
    End Sub
 
    Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
        hor = e.X
        ver = e.Y
    End Sub
 
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
 
 
 
        Dim p As New Pen(Color.Red, 3)
        hor2 = hor + 1
        ver2 = ver + 1
 
 
        g = Label1.CreateGraphics()
        g.DrawEllipse(p, 1, 1, 255, 255)
        g.DrawLine(p, 130, 130, hor, ver)
 
 
        TextBox1.Text = hor
        TextBox2.Text = ver
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim p As New Pen(Color.Red, 3)
        If i < 360 Then
            i = i + 6
 
        End If
 
    End Sub
End Class

Oh da ist Rauch , gleich wird mein Kopf explodieren