précision sur le vb6.0 sur le timer

bonjour toute la communauté du club de developpement,

je suis débutant dans l'affair vb6.0 et j'ai une préoccupation à vous faire part,

je voudrais créer un evenement basé sur la timer, donc voici mon code mais le format auquel j'écris l'heure n'est pas reconnu par vb6.0:

Code:

---

1 2 3 4 5 6

private sub_timer() label1 = Cstr(Time) 'pour obtenir la chaine de l'heure au format "HH:mm:ss"' label2 = Cstr(Date) 'pour obtenir la date au format "DD/MM/YY" if label2 = "12/06/2013" then Unload me end sub

---

avec la date, la condition marche.
mais quand je mes la meme condition pour l'heure, on me donne un message d'erreur, le code est le suisvant:

Code:

---

1 2	if label1 = "12:30:00" then msgbox "Bonjour il est " & label1

---

veuillez m'aider à bien écrire.

merci à vous tous

Salut

Code:

---

1 2 3 4 5 6 7 8 9 10

Label1.Caption = Format(Time, "hh:mm:ss") 'pour obtenir la chaine de l'heure au format "HH:mm:ss"' Label2.Caption = Format(Date, "dd/mm/yy") 'pour obtenir la date au format "DD/MM/YY"   If Label1.Caption = "12:30:00" Then MsgBox "Bonjour il est " & Label1.Caption End If   If Label2.Caption = "12/06/2013" Then Unload Me End If

---