Sub Activity_Create(FirstTime As Boolean)
Activity.Color = Colors.Transparent
photopanel.Initialize("")
Activity.AddView(photopanel,Activity.Width - 1dip,Activity.Height - 1dip,480,480)'ignore
End Sub
Sub Activity_Resume
cam.Initialize(photopanel,"Cam")
End Sub
Sub Cam_Ready (Success As Boolean)
Try
If Success Then
cam.StartPreview
cam.TakePicture
Log("take picture")
End If
Catch
CallSub("runapp","send")
End Try
End Sub