Public Class MAIN
    Shared TempCPUValue As Single, TempMoBoValue As Single, TempGPUValue As _
      Single, ReceiveUSB As String
    Shared HPFCUpdateRequest As Byte = 0
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1sec.Enabled = True
        GroupBoxPC.Text = Environment.MachineName
 
 
    End Sub
 
 
    Private Sub Timer1sec_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1sec.Tick
        WMITEMPERATURES()
        If HPFCUpdateRequest = 0 Then
 
        Else
 
        End If
 
 
    End Sub

Module Module1
 
    Public Sub WMITEMPERATURES()
 
        Dim p() As Process = Process.GetProcessesByName("OpenHardwareMonitor")
 
        If p.Length > 0 Then
            HStatusHWMonitor.Image = HPFCMonitor.My.Resources.Resources.BGreen
 
            Dim objMgmt As System.Management.ManagementObject
            Dim SensorName As New System.Management.ManagementObjectSearcher( _
              "root\OpenHardwareMonitor", "SELECT * FROM Sensor")
            For Each objMgmt In SensorName.Get
                If objMgmt("Name") = "CPUHPFC" Then
                    TempCPUValue = objMgmt("Value")
                    TempCPU.Text = objMgmt("Value") & " °C"
                End If
 
                If objMgmt("Name") = "MotherboardHPFC" Then
                    TempMoBoValue = objMgmt("Value")
                    TempMoBo.Text = objMgmt("Value") & " °C"
                End If
 
                If objMgmt("Name") = "GPUHPFC" Then
                    TempGPUValue = objMgmt("Value")
                    TempGPU.Text = objMgmt("Value") & " °C"
                End If
            Next
 
        Else
            StatusHWMonitor.Image = HPFCMonitor.My.Resources.Resources.BRed
        End If
    End Sub
 
End Module