Dim ps As PhoneSensors
----------
----------
---------
ps.Initialize(ps.TYPE_LIGHT)
---------
----------
-------
Sub ps_SensorChanged (Values() As Float)
Dim N As String
N=NumberFormat2(Values(0),0,0,0,False)
Label1.Text="Luce= "&N&" lux"
Log(Label1.Text)
End Sub