Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim SF As New StringFormat
        SF.Alignment = StringAlignment.Center
        SF.LineAlignment = StringAlignment.Center
        For i As Integer = 0 To pts.Length - 1
            Dim disRect As New Rectangle(pts(i), New Size(20, 20))
 
            e.Graphics.FillRectangle(Brushes.LightGray, 200, 300, 20, 100) _
              'Hintergrund
            e.Graphics.DrawRectangle(Pens.Gray, 200, 300, 20, 100) 'Rahmen
            e.Graphics.FillRectangle(Brushes.SlateGray, 200, 350, 20, 50) _
              'Füllung
 
            e.Graphics.FillRectangle(Brushes.LightGray, 225, 300, 20, 100) _
              'Hintergrund
            e.Graphics.DrawRectangle(Pens.Gray, 225, 300, 20, 100) 'Rahmen
            e.Graphics.FillRectangle(Brushes.SlateGray, 225, 340, 20, 60) _
              'Füllung
 
            e.Graphics.FillRectangle(Brushes.LightGray, 250, 300, 20, 100) _
              'Hintergrund
            e.Graphics.DrawRectangle(Pens.Gray, 250, 300, 20, 100) 'Rahmen
            e.Graphics.FillRectangle(Brushes.SlateGray, 250, 320, 20, 80) _
              'Füllung
 
            e.Graphics.FillRectangle(Brushes.LightGray, 275, 300, 20, 100) _
              'Hintergrund
            e.Graphics.DrawRectangle(Pens.Gray, 275, 300, 20, 100) 'Rahmen
            e.Graphics.FillRectangle(Brushes.SlateGray, 275, 310, 20, 90) _
              'Füllung
 
            e.Graphics.FillRectangle(Brushes.LightGray, 300, 300, 20, 100) _
              'Hintergrund
            e.Graphics.DrawRectangle(Pens.Gray, 300, 300, 20, 100) 'Rahmen
            e.Graphics.FillRectangle(Brushes.SlateGray, 300, 320, 20, 80) _
              'Füllung
 
            e.Graphics.FillRectangle(Brushes.LightGray, 325, 300, 20, 100) _
              'Hintergrund
            e.Graphics.DrawRectangle(Pens.Gray, 325, 300, 20, 100) 'Rahmen
            e.Graphics.FillRectangle(Brushes.SlateGray, 325, 340, 20, 60) _
              'Füllung
 
        Next
    End Sub