Public Class Form1
    Private WithEvents Pb As New PictureBox
    Private WithEvents t As New Timer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Pb.SetBounds(10, 10, 100, 250)
        Me.Controls.Add(Pb)
        Pb.BackColor = Color.Black
        t.Interval = 2000
        t.Start()
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles t.Tick
        Pb.Invalidate()
    End Sub
 
    Private Sub Pb_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Pb.Paint
        Dim daten() As Int32 = {1, 2, 2, 4, 4, 6, 6, 1, 1}
        Static pos As Int32 = 8
        pos = IIf(pos < 7, pos + 1, 0)
        Select Case daten(pos)
            Case 1
                e.Graphics.FillEllipse(Brushes.Green, 10, 165, 80, 80)
            Case 2
                e.Graphics.FillEllipse(Brushes.Yellow, 10, 85, 80, 80)
            Case 4
                e.Graphics.FillEllipse(Brushes.Red, 10, 5, 80, 80)
            Case 6
                e.Graphics.FillEllipse(Brushes.Red, 10, 5, 80, 80)
                e.Graphics.FillEllipse(Brushes.Yellow, 10, 85, 80, 80)
        End Select
    End Sub
End Class