ho notato una stanezza nell' udt systemtime

codice:
Private Type SYSTEMTIME
   wDayOfWeek As Integer
   wDay As Integer
   wMonth As Integer
   wYear As Integer
   wHour As Integer
   wMinute As Integer
   wSecond As Integer
   wMilliseconds As Integer
End Type

Private Declare Sub GetSystemTime Lib "KERNEL32" _
   (lpSystemTime As SYSTEMTIME)


sub main()
    dim uSt as SYSTEMTIME
    GetSystemTime st
    With Form1.List1
      .AddItem "anno " & ust.wYear
      .AddItem "mese " & ust.wMonth
      .AddItem "giorno " & ust.wDay
      .AddItem "giosett " & ust.wDayOfWeek
      .AddItem "ora " & ust.wHour
      .AddItem "minuti" & ust.wMinute
      .AddItem "secondi " & ust.wSecond
      .AddItem "milli sec " & ust.wMilliseconds
      .Refresh
    End With
end sub
se qualcuno ha un os in lingua inglese potrebbe testarlo