Sub btn_addpic_Click
Dim cam As Camera
cam.Initialize("cam",Page1)
cam.TakePicture
End Sub
Sub cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
Log("Photo taken:" & Success)
If Success = True Then
Images.Add(Image)
End If
End Sub