[alex]

Καλησπέρα σε όλη την παρέα του forum

Η ερώτηση μου είναι εάν μπορούμε να έχουμε δύο Private Sub Form_Timer1() και Private Sub Form_Timer2() σε μια φόρμα και να το ενεργοποιούμε με κουμπί εντολής.Ή πως μπορώ να εφαρμόσω 2 χρονόμετρα σε μια φόρμα;ΠΧ στο παρακάτω κώδικα.
Προσπαθώ να μετακινήσω κάποιες εικόνες ώστε να φαίνεται σαν κινούμενο σχέδιο.Τις εικόνες δεν τις έχω σχεδιάσει ακόμη όπως θέλω απλά έβαλα κάποια εικονίδια και είδα ότι με ένα χρονόμετρο μεταφέρονται.

Private Sub Command1_Click()
Picture2.Visible = True
Timer1.Enabled = True
End Sub

   


Private Sub Form_Timer2()
If bounces < 7 Then
   Picture4.Move Picture4.Left + 400, Picture4.Top - 500
   bounces = bounces + 1
   
   Else
   Timer2.Enable = False
   End If
   End Sub
   
   Private Sub Form_Timer1()
   If bounces < 5 Then 'Ανάλογα με τις αναπηδήσεις 
   If (bounces Mod 2 = 0) Then 'Πέφτει
   Picture2.Move Picture2.Left - 530, Picture2.Top + 900
   Beep
   bounces = bounces + 1
   Else                 'Πάνω
   Picture2.Move Picture2.Left - 530, Picture2.Top - 320
   bounces = bounces + 1
   End If
   Else             'Σέρνεται
   Picture2.Move Picture2.Left - 530, picture2Left - 530, Picture2.Top
   bounces = bounces + 1
   End If
             'Στη θέση αυτή ανταμώνει πέφτει πάνω σε ίδιο κύβο και γίνεται σύννεφο
   If bounces = 7 Then
   Picture2.Visible = False
   Picture3.Visible = True
   Picture4.Visible = True
   Timer1.Enabled = False
   Command1.Enabled = False
   Timer2.Enabled = True  'Εδώ το χρονόμετρο Timer2_είναι χρονόμετρο για το σύννεφο
   bounces = 0
   End If
   End Sub
   
   Private Sub Command2_Clik()
   End
   End Sub

Ανεβάζω κάποιο δείγμα για βοήθεια

Φιλικά/Αλέξανδρος