C'est pas une fonction, mais un Timer... Avec VB6, tu as un composant "Timer" qui te permet de réaliser ce genre de truc. Tu lui définis un intervalle de 1000 (=1s), et une fonction qui sera appelée chaque fois que l'intervalle sera atteint, et dans cette fonction, tu incrémentes ta variable