La funzione che dava problemi è:
Codice: Seleziona tutto
PUBLIC SUB Button1_Click()
IF Button1.Text = "Avvia" THEN
Timer1.Enabled = TRUE
Button1.Text = "Ferma"
ELSE IF Button1.Text = "Ferma" THEN
Timer1.Enabled = FALSE
Button1.Text = "Avvia"
ENDIF
END
L'ho eseguito, dava errore.
Ho cancellato le linee Button1.Text = "Ferma" e Button1.Text = "Avvia"
L'ho rieseguito, funzionava ma senza cambiare il testo del bottone
Ho riaggiunto le linee e funziona...
Prova a sostituire la funzione con quella che ho messo quà sopra...