Private Sub out(ByVal s As String)
        Me.ListBox1.Items.Add(s)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim strComputer As String = "localhost"
        Dim wbemServices As Object = GetObject("winmgmts:\\" + strComputer + _
          "\root\wmi")
        Dim wbemObjectSet As Object = wbemServices.InstancesOf( _
        "MSAcpi_ThermalZoneTemperature")
        For Each wbemObject As Object In wbemObjectSet
            out("InstanceName : " + wbemObject.InstanceName)
            out("Current Temperature: " + wbemObject.CurrentTemperature())
        Next
    End Sub