Visual Basic - timer y random

Hola, me gustaria saber si alguien me puede ayudar!

tengo que hacer un programa en el que tengo 3 labels, y cuando pulso el cmdcalcular, tiene que durante un tiempo aleatorio, ir cambiando el color de los label.
la verdad es que solo hace dos semanas que estoy con VB y no tengo idea de cmo hacer eso; de momento tengo hecho esto:

Private Sub Command1_Click()
Dim i As Integer
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Dim aleatori As Integer
Randomize 'Timer1
Max = 100
Min = 1
aleatori = Int((Max - Min + 1) * Rnd + Min) + 1

Select Case (i)
Case (1)
Label1.BackColor = RGB(255, 0, 0)
Label2.BackColor = RGB(255, 255, 255)
Label3.BackColor = RGB(255, 255, 255)

Case (2)
Label1.BackColor = RGB(255, 255, 255)
Label2.BackColor = RGB(255, 0, 0)
Label3.BackColor = RGB(255, 255, 255)
Case (3)
Label1.BackColor = RGB(255, 255, 255)
Label2.BackColor = RGB(255, 255, 255)
Label3.BackColor = RGB(255, 0, 0)
End Select
End If
End Sub

pero no se como hacer el trozo ese del timer y del rnd, por si alguien me puede ayudar, se lo agradeceria!

Esto debe servirte colega:

Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000 ''cada 1 segundo
End Sub

Private Sub Timer1_Timer()
Randomize
Label1.BackColor = RGB(Int((255 * Rnd) + 1), Int((255 * Rnd) + 1), Int((255 * Rnd) + 1))
Label2.BackColor = RGB(Int((255 * Rnd) + 1), Int((255 * Rnd) + 1), Int((255 * Rnd) + 1))
Label3.BackColor = RGB(Int((255 * Rnd) + 1), Int((255 * Rnd) + 1), Int((255 * Rnd) + 1))
End Sub

Suerte mi viejo

pos no se porque pero no me funciona
los label ni cmabian de color

todo el apartado que has puesto de los label no lo entiendo, pero no se podri ahacer tb con los case?? perdona por las molestias. gracias

Es que os falta refrescar los labels al final del evento Timer:

Label1.Refresh
Label2.Refresh
Label3.Refresh

pero asi, me salen los cuadros de colores, y se supone que tiene que haber uno rojo y los otros blancos
,no se si me explico
muchas grqacias a los dos

La idea del Select era la buena, poned este código:

Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = 4 Then i = 1
Select Case i
Case 1
Label1.BackColor = RGB(255, 0, 0)
Label2.BackColor = RGB(255, 255, 255)
Label3.BackColor = RGB(255, 255, 255)

Case 2
Label1.BackColor = RGB(255, 255, 255)
Label2.BackColor = RGB(255, 0, 0)
Label3.BackColor = RGB(255, 255, 255)
Case 3
Label1.BackColor = RGB(255, 255, 255)
Label2.BackColor = RGB(255, 255, 255)
Label3.BackColor = RGB(255, 0, 0)
End Select
Label1.Refresh
Label2.Refresh
Label3.Refresh
End Sub

Espero que así os funcione.

Muchas gracias. ahora si que funciona
solo me falta veriguar, como hacer que se pare! jejeje
Es decir yo pulso comand1 cambia lo de los colores, pero en un tiempo, aleatorio, se tinee que para encima de un label
muchas graciasssss^^