One way to do this is
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim objIntent As Intent
objIntent.Initialize("android.media.action.IMAGE_CAPTURE", "")
StartActivity(objIntent)
End Sub
To activate a video modify the action in this mode
objIntent.Initialize("android.media.action.VIDEO_CAPTURE", "")
Marco