Sub StartRecordingVideo
Dim cc As Object
cc= CameraInstance.CreateEventFromUI("dji.common.util.CommonCallbacks$CompletionCallback", "callback", Null)
CameraInstance.RunMethod("startRecordVideo", Array( cc))
Wait For (CameraInstance) Callback_Event (MethodName As String, Args() As Object)
If Args(0) = Null Then
Labelssc.Text="Recording"
Else
Labelssc.Text="Failed to start recording: " & Args(0)
End If
End Sub