codigo 1 : ( declaracion )

Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
    Private Const mouseclickup = 4
    Private Const mouseclickdown = 2
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

codigo2- [buton 1 ] :

 Button1:Timer1.Start()

codigo 3 - [boton 2) 
 
 Button2:Timer1.Stop()

codigo 4 - [ timer 1]: 

mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)

codigo 5 - [timer 2] :

 Dim hotkey As Boolean
        hotkey = GetAsyncKeyState(Keys.F1)
        If hotkey = True Then Timer1.Start()
        Dim hotkey1 As Boolean
        hotkey1 = GetAsyncKeyState(Keys.F2)
        If hotkey1 = True Then Timer1.Stop()   
	Dim hotkey2 As Boolean
        hotkey2 = GetAsyncKeyState(Keys.F4)
        If hotkey2 = True Then TextBox2.Text = MousePosition.X
        Dim hotkey3 As Boolean
        hotkey3 = GetAsyncKeyState(Keys.F4)
        If hotkey3 = True Then TextBox3.Text = MousePosition.Y

 codigo 6 [boton3]

 TextBox1.Text = TextBox1.Text + 1

codigo7 - [boton 4]

TextBox1.Text = 0


Codigos Para Track Bar:
TextBox1.Text = TrackBar1.Value * 10

Text Box:
     
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then TextBox2.Enabled = True
        If CheckBox1.Checked = False Then TextBox2.Enabled = False

Para tener coordenadas:
En el tercer timer poner esto:
  Label1.Text = Cursor.Position.X
        Label2.Text = Cursor.Position.Y


En el Timer 1 ponemos esto:
Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)
Y ya esta

Para los radio butons:
Timer1.Interval = (1)

Para las coordenadas por boton crear boton y pegar esto:

 TextBox2.Text = MousePosition.X
        TextBox3.Text = MousePosition.Y