' neue Form + 1 Label (Label1) und 1 Timer (Timer1)
Option Explicit
 
Private Declare Sub GetSystemTime Lib "kernel32.dll" ( _
  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()
  Timer1.Interval = 1
  Timer1.Enabled = True
  Label1.AutoSize = True
End Sub
 
Private Sub Timer1_Timer()
  Dim tTime As SYSTEMTIME
 
  Timer1.Enabled = False
 
  GetSystemTime tTime
 
  Label1.Caption = Format(tTime.wHour, "00:") & Format(tTime.wMinute, _
    "00:") & Format(tTime.wSecond, "00") & "," & Format(tTime.wMilliseconds, _
    "000")
 
  Timer1.Enabled = True
End Sub

Viel Spass,
R@lf