Sub getFrequencyBand As ResumableSub
If aircraft.Connected Then
Dim airlink As JavaObject = aircraft
airlink = airlink.RunMethod("getAirLink", Null)
If airlink.IsInitialized Then
Dim OcuSyncLink As JavaObject = airlink.RunMethod("getOcuSyncLink", Null)
If OcuSyncLink.IsInitialized Then
Dim cc As Object = OcuSyncLink.CreateEventFromUI("dji.common.util.CommonCallbacks$CompletionCallbackWith", "callback", Null)
OcuSyncLink.RunMethod("getFrequencyBand", Array(cc))' not workin no cc
Wait For (OcuSyncLink) Callback_Event (MethodName As String, Args() As Object) ' always failure
If MethodName = "onSuccess" Then
Log("getFrequencyBand "&Args(0))
Return Args(0)
Else
Log("OcuSyncLink onSuccess getFrequencyBand failed")
End If
End If
End If
Else
Log("not connected")
End If
End Sub