Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Form_Load()
'VbAndJava 1999/2000
'Guerrault Yonni
'E-Mail : Yonni4@iFrance.com
ret& = GetTickCount&
MsgBox Str$(ret& / 60000) + " minutes."
End Sub