Dim duration As Long = 10000
CameraVideoButton.RunMethod("setVideoDuration", Array(duration))
CameraVideoButton.RunMethod("enableVideoRecording", Array(True))
CameraVideoButton.RunMethod("enablePhotoTaking", Array(True))
Dim listener As Object = CameraVideoButton.CreateEventFromUI("com.iammert.library.cameravideobuttonlib.CameraVideoButton.ActionListener", _
"VideoListener", Null)
CameraVideoButton.RunMethod("setActionListener", Array(listener))
Activity.AddView(CameraVideoButton, 50%x - 50dip, 100%y - 120dip, 100dip, 100dip)
Sub VideoListener_Event (MethodName As String, Args() As Object) As Object
Log(MethodName)
Return Null
End Sub