Public Class Form1
    Public Declare Function NvCplGetThermalSettings Lib "nvcpl.dll" ( _
        ByVal nWindowsMonitorNumber As Integer, _
        ByRef pdwCoreTemp As Integer, _
        ByRef pdwAmbientTemp As Integer, _
        ByRef pdwUpperLimit As Integer) _
    As Long
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim system As Long
        Dim pdwCoreTemp As Long
        Dim pdwAmbientTemp As Long
        Dim pdwUpperLimit As Long
 
        On Error Resume Next 'sonst Abbruch, wegen falscher DLL 
        ' Aufrufkonvention!
        'Werte werden trotzdem übernommen.
 
        system = NvCplGetThermalSettings(0, pdwCoreTemp, pdwAmbientTemp, _
          pdwUpperLimit)
        ListBox1.Items.Clear()
        ListBox1.Items.Add("Kerntemperatur: " & pdwCoreTemp & " °C ")
        ListBox1.Items.Add("Umgebungstemperatur: " & pdwAmbientTemp & " °C")
        ListBox1.Items.Add("Oberes Limit: " & pdwUpperLimit & " °C")
 
 
    End Sub
 
End Class