Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim SysTime As SYSTEMTIME Me.AutoRedraw = True GetSystemTime SysTime Me.Print "La date système est : " & SysTime.wMonth & "-" & SysTime.wDay & "-" & SysTime.wYear Me.Print "L' heure sytème est : " & SysTime.wHour & ":" & SysTime.wMinute & ":" & SysTime.wSecond End Sub