Public Class Form1
 
    Dim PCol(1000) As Pen
    Dim BCol(1000) As Brush
    Dim CurrentPen As Pen
    Dim CurrentBrush As Brush
 
    Dim i As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        CurrentPen = PCol(i)
        CurrentBrush = BCol(i)
 
        Me.Invalidate()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Dim i As Integer = 0
        For Each PE In Pens.PenCollection
            PCol(i) = PE
        Next
        i = 0
        For Each BR In Brushes.BrushCollection
            BCol(i) = BR
        Next
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        For i As Integer = 0 To 20
            e.Graphics.DrawLine(CurrentPen, 100 - i, 100, 100 - i, 500)
        Next
 
        e.Graphics.FillRectangle(CurrentBrush, New Rectangle(100, 100, 100, _
          100))
    End Sub
End Class