Public Class Form1
 
    Dim WithEvents pb As New PictureBox With {.Parent = Me, .Size = New Size( _
      300, 300)}
    Dim WithEvents lbo As New ListBox With {.Parent = Me, .Top = 330, .Width = _
    300, .Height = 60}
 
    Private Sub frmBlink_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Me.Size = New Size(320, 440)
 
        'Die Listenindices definieren die Position der Kreise in der Picturebox 
        ' pb
        lbo.Items.AddRange({"100,100", "130, 130", "160, 160", "100, 160"})
 
    End Sub
 
    Private Sub pb_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles pb.Paint
 
        Dim vl() As String, x%, y%
 
        'Nicht-selektierte Kreise zeichnen (grau)
        Using br As New SolidBrush(Color.Gray)
            For i As Integer = 0 To lbo.Items.Count - 1
                If Not i = lbo.SelectedIndex Then
                    vl = lbo.Items(i).ToString.Split(","c)
                    x = CInt(vl(0)) : y = CInt(vl(1))
                    e.Graphics.FillEllipse(br, x, y, 20, 20)
                End If
            Next i
        End Using
 
    End Sub
End Class