vv.Initialize("vv")
Page1.RootPanel.AddView(vv.View, ImageView1.Left, ImageView1.Top, _
ImageView1.Width, ImageView1.Height)
vv.View.Visible = False
timer1.Initialize("timer1", 500)
......
Sub Cam_Complete (Success As Boolean, Image As Bitmap, VideoPath As String)
If Success Then
If Image.IsInitialized Then
vv.View.Visible = False
ImageView1.Bitmap = Image
Else
vv.View.Visible = True
vv.LoadVideo(VideoPath, "")
End If
End If
End Sub
Private Sub Page1_Resize(Width As Int, Height As Int)
'resize the VideoView to the same size as the ImageView.
vv.View.SetLayoutAnimated(0, 1, ImageView1.Left, ImageView1.Top, _
ImageView1.Width, ImageView1.Height)
End Sub