'Declaration de l'api Private Declare Function GetTickCount& Lib "kernel32" () Dim T1 As Long, T2 As Long Private Sub Command1_Click() T2 = GetTickCount 'On preleve le temp lors de l'appuie sur le bouton 'Difference entre (T2 - T1) /1000 Pour avoir des sec MsgBox "Il s'est écoulé : " & (T2 - T1) / 1000 & " seconde(s) depuis l'ouverture de cette fenetre" End Sub Private Sub Form_Load() T1 = GetTickCount 'On preleve le temp a l'ouverture End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question