Salve ragazzi.
Premettendo che non capisco veramente dov'è l'errore, e premettendo che ci sto lavorando da due ore o più, vi posto il codice così, magari, potreste darmi un aiutino

codice:
Private Sub Form_Load() 
ProgressBar1.Max = 15 ProgressBar1.Min = 0 
ProgressBar1.Value = 0
End Sub
codice:
Private Sub Gioca_Click() 
Timer1.Enabled = True 
End Sub
codice:
Private Sub Timer1_Timer() 'Imposto il timer 'Se il valore della progress bar è minore di 15, allore aggiungi 1 
If ProgressBar1.Value < 15 Then 
ProgressBar1.Value = ProgressBar1.Value + 1
Else
'Altrimenti vuol dire che sono passati 15 cicli e quindi è terminato il tempo 
Timer1.Enabled = False MsgBox "Tempo scaduto! :(" End If End Sub
Thank!

Ahahaha, mi sono dimenticato di dirvi qual'è il problema: non succede assolutamente nulla.