Public Function GetCpuTemperature()
        Dim Temperature As Double
        Try
            Dim TempSearcher As New Management.ManagementObjectSearcher( _
              "root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
            For Each TempSensor As Management.ManagementObject In _
            TempSearcher.Get()
                Temperature = CDbl(TempSensor("CurrentTemperature"))
                Temperature = (Temperature - 2732) / 10.0
            Next
        Catch err As Management.ManagementException
            MessageBox.Show("Fehler: " & err.Message)
        End Try
        Return Temperature
    End Function

 
If M?lleimer.Entfernung <= Wurfweite Then
   M?ll.Werfen.ToM?lleimer()
ElseIf M?lleimer.Entfernung > Wurfweite Then
   M?ll.Werfen.ToBoden()
End If