А можно средствами VB6 загрузить процессор на 100%

Option Explicit
 
Public Type SYSTEM_INFO
  dwOemID                       As Long
  dwPageSize                    As Long
  lpMinimumApplicationAddress   As Long
  lpMaximumApplicationAddress   As Long
  dwActiveProcessorMask         As Long
  dwNumberOrfProcessors         As Long
  dwProcessorType               As Long
  dwAllocationGranularity       As Long
  dwReserved                    As Long
End Type
 
Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, _
                                                     ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, _
                                                     lpThreadId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Public flag As Long
 
Public Sub thread(ByVal unUse As Long)
 
    Do
    Loop While GetFlag()
    
End Sub
 
Private Function GetFlag() As Long
    GetFlag = flag
End Function