<br />Private Sub phidgetIFK_SensorChange(ByVal sender As Object, ByVal e As Phidgets.Events.SensorChangeEventArgs) Handles phidgetIFK.SensorChange<br /> Dim temperature As String<br /> phidgetIFK.sensors(0).Sensitivity = 2 '<br /> temperature = ((phidgetIFK.sensors(0).Value * 0.2222) - 61.111)<br /> txtNumSensors.Text = temperature.ToString()<br /> End Sub<br />
var