hundrede-dele i ur

jeg tror det er det her du søger.
men jeg ved ikke om det er mugligt.
labelur.caption = format(now, \"mm:ssss\")
er det umuligt ???

Desværre ikke:-(

Så får jeg bare skrevet sekunderne 2 gange efter hinanden... 08:40:5555 - og det var ikke lige det jeg ledte efter...
Ellers tak:-)

/J

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_Activate()
Dim SysTime As SYSTEMTIME
Dim lHour, lMinute, lSecond, lMilliseconds As Long
Do
  GetSystemTime SysTime
    DoEvents
      lHour = Format(SysTime.wHour + 1, \"00\")
      lMinute = Format(SysTime.wMinute, \"00\")
      lSecond = Format(SysTime.wSecond, \"00\")
      lMilliseconds = Left(Format(SysTime.wMilliseconds, \"00\"), 2)
    DoEvents
  Me.Caption = lHour & \":\" & lMinute & \":\" & lSecond & \":\" & lMilliseconds
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

Sorry det tog så lang tid, menjeg har ike haft tid til at teste det...
Men det var lige det jeg skulle bruge:-)

Tak for hjælpen!!

/J

selv tak