Sub cam1_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
Dim no As NativeObject = App
If Success Then
If Image.IsInitialized Then
GraphPaper.ContentMode = GraphPaper.MODE_FIT
GraphPaper.Bitmap = Image
no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
End If
End If
End Sub