'Définis ces propriétés via la fenêtre de propriété en mode conception: 'Clique droit sur un contrôle > propriétés > fenêtre en bas à gauche (liste) 'Slider1.Max = 6 'Slider1.Min = 0 'Timer1.Interval = 0 'Timer1.Enabled = True 'Doit te rester dans ton formulaire uniquement ce code: Private Sub Slider1_Change() Timer1.Interval = silder1.Value * 100 End Sub Private Sub Timer1_Timer() Shape1.Visible = not Shape1.visible End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question