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
            i = i + 1
        Next
        i = 0
        For Each BR In Brushes.BrushCollection
            BCol(i) = BR
            i = i + 1
        Next
    End Sub

fg viperbone