Sub PS_SensorChanged (Values() As Float, TimeStamp As Long)
Dim tm As Long
tm=TimeStamp
Log(Values(0) & CRLF & Values(1) & CRLF & Values(2) & CRLF & tm)
' LogColor(DateTime.now & CRLF & CRLF,Colors.blue)
Dim CurrentTime As Long
CurrentTime = DateTime.Now
LogColor(CurrentTime,Colors.blue)
Log(DateTime.Time(CurrentTime))
Log(CRLF & CRLF)
End Sub