Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Log ("this device has " & getNumberCameras & " cameras")
End Sub
Private Sub getNumberCameras
Dim r As Reflector
Dim ci As CameraInfoAndId
Dim cameraInfo As Object
Dim numCams As Int
cameraInfo = r.CreateObject("android.hardware.Camera$CameraInfo")
numCams= r.RunStaticMethod("android.hardware.Camera", "getNumberOfCameras", Null, Null)
Return numCams
End Sub