Modifier date systeme

Bonjour,

Commet faire pour modifier la date systeme (Incrementation heure de 1 par exemple ) via un exe vb6?

merci.

Salut

Code:

---

1 2 3 4 5 6 7 8 9

Dim NewHeure As Date   NewHeure = DateAdd("h", 1, Now) 'MsgBox NewHeure   'changement de l'heure Time = NewHeure 'et éventuellement changement de la date si l'ajout a fait basculer le jour Date = NewHeure

---

Voir SetSystemTime