Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Try

        Dim searcher As New ManagementObjectSearcher( _

            "rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")



        For Each queryObj As ManagementObject In searcher.Get()

            Dim temp As Double = CDbl(queryObj("CurrentTemperature"))

            temp = (temp - 2732) / 10.0

            MessageBox.Show(temp.ToString)

        Next

    Catch err As ManagementException

        MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)

    End Try

End Sub

End Class