Public Class Form1
 
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As _
      Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal _
      dwExtraInfo As Long)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text + 1
    End Sub
 
    Private Sub MyMethod()
        Windows.Forms.Cursor.Position = New System.Drawing.Point( _
          Windows.Forms.Cursor.Position)
        mouse_event(&H2, 0, 0, 0, 1)
        mouse_event(&H4, 0, 0, 0, 1)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        MyMethod()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

__________________________________________________________
Wer Rechtschreibfehler findet, darf sie Behalten! =)