как получить процент нагрузки процесса на компутере?

как получить процент нагрузки процесса на компутере?

проблема с большими числами 64бит
нашёл образец кода но он показывает по процессу совершенно неточные данные




Private Sub timCPU_Timer()
On Error Resume Next

hProc = OpenProcess(PROCESS_QUERY_INFORMATION, 0, Val(txtPID))

Static ftKernelStart As FILETIME
Static ftUserStart As FILETIME
bRet = GetProcessTimes(hProc, ftCreat, ftExit, ftKernel, ftUser)
Dim PU As Double
PU = ((ftKernel.dwLowDateTime - ftKernelStart.dwLowDateTime) + (ftUser.dwLowDateTime - ftUserStart.dwLowDateTime) / 1000) * 100
PU = PU / 10000000

If PU > maxcpu And PU <= 100 Then
maxcpu = PU
txtMAX.Text = CStr(maxcpu)
End If

txtCPU.Text = CStr(PU)
ftKernelStart = ftKernel
ftUserStart = ftUser
End Sub