Private mColors As New List(Of Color)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        mColors.Add(GetRandomColor)
    End Sub
 
    Private r As New Random(100)
    Private Function GetRandomColor() As Color
        Dim c As Color = Color.FromArgb(255, r.Next(0, 255), r.Next(0, 255), _
          r.Next(0, 255))
        Return c
    End Function