Private Sub Timer1_Timer()
  Dim totalCpuUsage As Long
  totalCpuUsage = total_CPU_Usage(eIdle, eKernel, eUser)
  Me.Label1.Caption = CStr(totalCpuUsage) & " %"
  Me.LabelLarge.Caption = IIf(totalCpuUsage > 20, "МНОГО", "")
  
  If total_CPU_Usage(eIdle, eKernel, eUser) > 20 Then Exit Sub  'Timer1.Interval = 300
  '===========КОД ЗАПУСКА НОВОГО ПРОЦЕССА (усиливает нагрузку)======================
End Sub

'------------------------------------------

Option Explicit

Private Declare Function GetSystemTimes Lib "kernel32.dll" (ByRef idleTime As _
 Currency, ByRef kernelTime As Currency, ByRef userTime As Currency) As Boolean

'These variable are to hold the ending (current) times values.
Public eIdle As Currency
Public eKernel As Currency
Public eUser As Currency

Public Function total_CPU_Usage _
 (ByRef eIdle As Currency, ByRef eKernel As Currency, ByRef eUser As Currency) As Long
  'Will contain the calculated cpu usage as a percent value.
  
  'These are to hold the starting times values.
  Dim sIdle As Currency
  Dim sKernel As Currency
  Dim sUser As Currency
  
  'These will hold the values that are calculated from the ending and starting times.
  Dim cIdle As Currency
  Dim cKernel As Currency
  Dim cUser As Currency
  
  'This variable will contain the values of cKernel + cUser.
  Dim systemTime As Long
  
  'Starting Times values
  sIdle = eIdle
  sKernel = eKernel
  sUser = eUser
  
  'Retrieve the current Times values
  GetSystemTimes eIdle, eKernel, eUser
  eIdle = Val(eIdle)
  eKernel = Val(eKernel)
  eUser = Val(eUser)
  
  'Get the values calculated between the starting and ending Times values.
  cIdle = (eIdle - sIdle)
  cKernel = (eKernel - sKernel)
  cUser = (eUser - sUser)
  
  'Calculate the total system time. Which is Kernel and User time together.
  systemTime = (cKernel + cUser)
  
  'Now calculate the values as a percentage based number.
  If systemTime <> 0 Then total_CPU_Usage = CLng((systemTime - cIdle) * (100) / (systemTime))
End Function