Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
SensorsMap.Initialize
Dim ps As PhoneSensors 'This object is only used to access the type constants.
AddSensor(ps.TYPE_ACCELEROMETER, "ACCELEROMETER", True)
AddSensor(ps.TYPE_GYROSCOPE, "GYROSCOPE", True)
AddSensor(ps.TYPE_LIGHT, "LIGHT", False)
AddSensor(ps.TYPE_MAGNETIC_FIELD, "MAGNETIC", True)
AddSensor(ps.TYPE_ORIENTATION, "ORIENTATION", True)
AddSensor(ps.TYPE_PRESSURE, "PRESSURE", False)
AddSensor(ps.TYPE_PROXIMITY, "PROXIMITY", False)
AddSensor(ps.TYPE_TEMPERATURE, "TEMPERATURE", False)
AddSensor(ps.TYPE_GRAVITY, "GRAVITY", True)
AddSensor(ps.TYPE_LINEAR_ACCELERATION, "LINEAR ACCELERATION", False)
AddSensor(ps.TYPE_RELATIVE_HUMIDITY, "RELATIVE HUMIDITY", False)
AddSensor(ps.TYPE_ROTATION_VECTOR, "ROTATION VECTOR", True)
AddSensor(ps.TYPE_AMBIENT_TEMPERATURE, "AMBIENT TEMPERATURE", False)
End If