Option Explicit
Private Declare Function GetSystemTime Lib "kernel32" (lpSystemTime As _
  SYSTEMTIME) As Long
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()
Dim sysTime As SYSTEMTIME
 
Call GetSystemTime(sysTime)                             'Systemzeit holen
Label1.Caption = (sysTime.wMilliseconds)        'und mSek anzeigen
 
End Sub

Gruss

Markus

P.S.
- immer lachen: Es kann nur besser werden!