Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Gara - Form2.frm

Form2.frm

Caricato da: Netarrow
Scarica il programma completo

  1. Private Sub Timer1_Timer()
  2. If Label1.Left > 6600 Then
  3. Timer2.Enabled = True
  4. Timer1.Enabled = False
  5. Else
  6. Label1.Left = Label1.Left + 150
  7. End If
  8. End Sub
  9.  
  10. Private Sub Timer2_Timer()
  11. If Label1.Left < 120 Then
  12. Timer1.Enabled = True
  13. Timer2.Enabled = False
  14. Else
  15. Label1.Left = Label1.Left - 150
  16. End If
  17. End Sub
  18.  
  19. Private Sub Timer3_Timer()
  20. Label1.ForeColor = &H8000&
  21. Timer4.Enabled = True
  22. Timer3.Enabled = False
  23. End Sub
  24.  
  25. Private Sub Timer4_Timer()
  26. Label1.ForeColor = &HFF&
  27. Timer3.Enabled = True
  28. Timer4.Enabled = False
  29. End Sub