dim kern as integer
dim außen as integer
dim max as integer
 
Private Sub Timer1_Timer()
  if (NvCplGetThermalSettings(0, kern, außen, max))  then  '=true
    label1.Text = "Kerntemperatur: " & kern
    label2.Text = "Außentemperatur: " & außen
  end if
end sub

Das Projektforum is auch da ;)