Buenas.
Gracias a los dos por contestar. Aunque...
no consigo hacerlo funcionar.
Os cuento un poco más detalladamente lo que quiero hacer, y lo que yo tengo hecho.
Código:
Private Sub Command1_Click()
If Combo2.Text <> "" Then
Image10.Visible = True
sem = 1
Timer7.Enabled = True
Else
MsgBox ("Seleccione un elemento"), vbOKOnly + vbInformation, "Seleccione elemento"
End If
ss = 0: mm = 0: hh = 0
End Sub
Private Sub Timer7_Timer()
sem = sem + 1
If sem > 5 Then
Timer7.Enabled = False
End If
Select Case sem
Case 1:
Case 2:
Image11.Visible = True
Case 3:
Image12.Visible = True
Case 4:
Image13.Visible = True
Case 5:
Image14.Visible = True
Image15.Visible = True
Image16.Visible = True
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
End Select
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
If ss = 60 Then
ml = 0
ss = 0
mm = mm + 1
End If
If mm = 60 Then
ss = 0
mm = 0
hh = hh + 1
End If
Label5.Caption = Format(hh, "00") & ":" & Format(mm, "00") & ":" & Format(ss, "00")
End Sub
En teoria (bueno, y esto lo hace bien) el Timer7 es un semaforo, osea, cada segundo se enciende una luz roja, y a los tres segundos, se apagan todas las rojas y se encienden las tres verdes. Y lo que quiero, es que despues de que se hallan encendido todas las verdes, empiece a contar el cronometro.
Todos los timer, los tengo por defecto en Enabled = False, aqui no se ve, pero el Timer2, se pone en False, despues de que termine otra cosa, pero eso es en otra parte del codigo.
El caso, es que yo pensaba, que cuando pongo un Timer y le hago Select Case, primero me haria el Case1, luego volveria al bucle y haria el Case2, luego el 3...y así, y que despues, cuando acabaria con todos los Cases, seguiria con la siguente linea, sin embargo, me hace el primer case, pasa por el End Select y sigue activando el cronometro, para seguir haciendo el select case.
Aquí al final, creo que me he liado un poco tratando de explicaros esto.
Bueno, a ver si me podeis seguir ayudando, en cualquier caso, muchas gracias por estar siempre ahí.
Un saludo.