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 Declare Function GetThreadTimes Lib "kernel32" (ByVal hThread As Long, _
  lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, _
  lpUserTime As FILETIME) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As _
FILETIME, lpLocalFileTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As _
FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim FT0 As FILETIME, FT1 As FILETIME, ST As SYSTEMTIME
    GetThreadTimes GetCurrentThread, FT1, FT0, FT0, FT0
    FileTimeToLocalFileTime FT1, FT1
    FileTimeToSystemTime FT1, ST
    MsgBox "This thread was started at " + CStr(ST.wHour) + ":" + CStr( _
      ST.wMinute) + "." + CStr(ST.wSecond) + " on " + CStr(ST.wMonth) + "/" + _
      CStr(ST.wDay) + "/" + CStr(ST.wYear)
End Sub

Klug ist, wer andere durchschaut,
weise, wer sich selbst durchschaut.
[Laotse]