Private meineFarben() As Color
Sub Farben_Festlegen()
   Redim meineFarben(2)
   meineFarben(0) = Color.Red 'Hier werden die Farben festgelegt(Farbe1 ist Rot)
   meineFarben(1) = Color.Blue 'Hier werden die Farben festgelegt(Farbe2 Blau)
   meineFarben(2) = Color.Green 'Hier werden die Farben festgelegt(Farbe3 ist 
   ' Grün)
End Sub
Private Sub Button1_Click(...)Handles Button1.Click
   Button1.BackColor = meineFarben(Int(Rnd()* 3))
End Sub

Private Sub Button1_Click(...)Handles Button1.Click
   Dim ZufallsZahl As Integer = Int(Rnd()* 3)
   Select Case Zufallszahl
      Case 0
        Button1.BackColor = Color.Red
      Case 1
        Button1.BackColor = Color.Blue
      Case 2
        Button1.BackColor = Color.Green
   End Select
End Sub