Private Declare Sub GetLocalTime 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 MyTime As SYSTEMTIME Me.AutoRedraw = True GetLocalTime MyTime Me.Print "La date locale est : " & MyTime.wMonth & "-" & MyTime.wDay & "-" & MyTime.wYear Me.Print "L' heure locale est : " & MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond End Sub