Public Class Form1
    Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
      Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Const Pt_Rigth As Int32 = 39
    Private WithEvents t As New Timer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(10, 500, 600, 100)
        For i As Int32 = 1 To 20
            Dim bt As New Button
            bt.Name = "Button" & (i).ToString
            bt.Text = (i).ToString
            bt.SetBounds(25 * i, 20, 30, 30)
            Me.Controls.Add(bt)
        Next
        t.Interval = 200
        t.Start()
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles t.Tick
        keybd_event(Pt_Rigth, 0, 0, 0)    ' Pfeiltaste re drücken
        keybd_event(Pt_Rigth, 0, 2, 0)    ' Pfeiltaste re loslassen
    End Sub
End Class