COMMENT UTILISER UN TIMER

Dim label As Boolean
Dim i As Integer ' Déclare les variables.
Const img1 = "c:\vb\timerrrr\piou.bmp"
Const img2 = "c:\vb\timerrrr\cage.bmp"


Private Sub Command1_Click()
    On Error GoTo lasbas
    Text1.Text = CInt(Text1.Text)
    Timer1.Interval = Text1.Text
    GoTo overheer
lasbas:
MsgBox "il ne faut que des nombres"
Text1.Text = 1000
Timer1.Interval = Text1.Text
overheer:
End Sub




Private Sub Form_Load()

Timer1.Interval = 1000   ' Définit l'intervalle.
Image1.Picture = LoadPicture("c:\vb\timerrrr\piou.bmp")
label = True
Text1.Text = Timer1.Interval
   
End Sub


Private Sub Timer1_timer()
    
     If label = True Then
        Form1.Image1.Picture = LoadPicture(img2)
        label = False
    Else
        Form1.Image1.Picture = LoadPicture(img1)
        label = True
    End If
    
End Sub