Sub ListDevices
Dim shl As Shell
Dim adb As String = "C:\Android\platform-tools\adb.exe"
shl.Initialize("shl", adb, Array("devices"))
shl.Run(-1)
Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success Then
Log(StdOut)
Log(StdErr)
End If
End Sub