Sub OpenCamera
If camara.IsInitialized Then
camara.Release
End If
frontCamera = False
flash = "off"
PnlCamera.BringToFront
PnlCamera.Visible = True
Try
camara.Initialize(VisualizadorCamara, frontCamera, Me, "camara")
Catch
Msgbox("Problemas al iniciar la camara, intentelo nuevamente","Alerta")
Log(LastException)
End Try
End Sub