Sub Process_Globals
Private manager As UsbManager 'USB library
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
manager.Initialize
End If
End Sub
Sub Activity_Click
If manager.GetDevices.Length > 0 Then
Log("Something is connected")
End If
End Sub
Finding the device type will require asking the user for permission and will make it a bit more complicated.