Sub BtnConnect_Click
Dim Accs() As UsbAccessory
USBman.Initialize
Accs = USBman.GetAccessories
If Accs.Length > 0 Then
ADK = Accs(0)
If Not(USBman.HasAccessoryPermission(ADK)) Then
USBman.RequestAccessoryPermission(ADK)
Else
USBman.OpenAccessory(ADK)
AStream.Initialize(ADK.InputStream, ADK.OutputStream, "AStream")
BtnConnect.Enabled = False
ConnectEnabled = False
End If
End If
End Sub