Private Sub Timer1_Tick(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Timer1.Tick
  Dim Red, Green, Blue As Integer
  Red = Rnd() * 255
  Green = Rnd() * 255
  Blue = Rnd() * 255
  Me.BackColor = Color.FromArgb(255, Red, Green, Blue)
  Me.Text = Red & "," & Green & "," & Blue
End Sub 'Timer1_Tick