VB find out how long a process has been running

Option Explicit
 
Private Const PROCESS_QUERY_INFORMATION = &H400&
 
Private Type FILETIME
    dwLowDateTime             As Long
    dwHighDateTime            As Long
End Type
 
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 OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetProcessTimes Lib "kernel32" (ByVal hProcess As Long, ByRef lpCreationTime As FILETIME, ByRef lpExitTime As FILETIME, ByRef lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long
Private Declare Function FileTimeToLocalFileTime Lib "kernel32" (ByRef lpFileTime As FILETIME, ByRef lpLocalFileTime As FILETIME) As Long
Private Declare Function FileTimeToSystemTime Lib "kernel32" (ByRef lpFileTime As FILETIME, ByRef lpSystemTime As SYSTEMTIME) As Long
 
Public Sub GetProcessStartTime(ByVal Pid As Long)
 
' Process start time from process id.
Dim hProcess  As Long
Dim st        As SYSTEMTIME
Dim ft        As FILETIME
Dim Bogus     As FILETIME
Dim StartTime As String
 
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, Pid)
 
If hProcess Then
 
  GetProcessTimes hProcess, ft, Bogus, Bogus, Bogus
  FileTimeToLocalFileTime ft, ft
  FileTimeToSystemTime ft, st
  StartTime = DateSerial(st.wYear, st.wMonth, st.wDay) + _
         TimeSerial(st.wHour, st.wMinute, st.wSecond)
  
  ' Do your stuff here..
  Debug.Print "Started: " & StartTime
  Debug.Print "Elapsed Seconds: " & DateDiff("s", StartTime, Now)
 
' close handle
CloseHandle hProcess
 
End If
 
 
End Sub
 
Private Sub Command1_Click()
GetProcessStartTime 3880 '<-- PID
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60: