Private Sub Command1_Click()
    Dim cpuSet As SWbemObjectSet
    Dim cpu As SWbemObject
    
    Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
    InstancesOf("Win32_Processor")
     
    For Each cpu In cpuSet
        Print "Processor name:" & cpu.Name
        Print "Current running speed:" & cpu.CurrentClockSpeed
        Print "Maxmimum running speed:" & cpu.MaxClockSpeed
    Next cpu
End Sub