Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
  Dim col() As Color = {Color.Red, Color.Green, Color.Blue}
  Dim r As New Random(Environment.TickCount)
  Me.BackColor = col(r.Next(3))
End Sub