Public Sub Initialize (Panel1 As Panel, FrontCamera As Boolean, TargetModule As Object, EventName As String)
target = TargetModule
event = EventName
Front = FrontCamera
Dim id As Int
id = FindCamera(Front).id
If id = -1 Then
Front = Not(Front) 'try different camera
id = FindCamera(Front).id
If id = -1 Then
ToastMessageShow("No camera found.", True)
Return
End If
End If
Dim Panel2 As Panel
Panel2.Initialize("")
Panel2.AddView(Panel1, 1,1,1,1)
cam.Initialize2(Panel1, "camera", id)
End Sub