Para poder acceder a la variable desde cualquier sub del formulario debes ponerla al comienzo del código:
Código :
Ver originalDim Tiempo As Integer
Private Sub Form_Load()
Tiempo = 0
End Sub
Private Sub Command1_Click()
List1.AddItem Tiempo
End Sub
Private Sub Timer1_Timer(Index As Integer)
Tiempo = Tiempo + 1
End Sub