girobai nn saprei propio dove mettere il timer ecco il mio codice:
codice:
Private Sub Command1_Click()
Randomize
    Dim i As Integer
    Dim LB As Integer
    Dim UB As Integer
    MINIMO = 1
    MASSIMO = 5
   Text1.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
   Text2.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
   Text3.Text = Int((MASSIMO - MINIMO + 1) * Rnd + MINIMO)
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then
Label1.Caption = "VITTORIA!!"
End If
If Not Text1.Text = Text2.Text = Text3.Text Then
Label1.Caption = "Ritenta!"
End If
a = Text4
If Text1.Text = Text2.Text And Text2.Text = Text3.Text Then
Text4.Text = a + 15
End If
a = Text4
If Not Text1.Text = Text2.Text = Text3.Text Then
Text4.Text = a - 1
End If
If Text4.Text = 0 Then
Label1.Caption = "Game Over"
End If
 End Sub
mi puoi dare qualke suggerimento?