Android Question InputList disappears

[positrom2]

An app working correctly on an older 7" tablet (Android 3.2.1) does not work on a Galaxy SII with Android 4.1.2 and smaller screen size. On the tablet the paired devices can be selected as usual from the popup-screen showing the paired devices, using inputlist (the code below was taken from the BluetoothAdmin tutorial).

Sub Verbinden
    Dim PairedDevices As Map
    PairedDevices = blauerZahnDaten.GetPairedDevices
    Dim GeraeteListe As List
    GeraeteListe.Initialize
    For i = 0 To PairedDevices.Size - 1
        GeraeteListe.Add(PairedDevices.GetKeyAt(i))
    Next
    Dim res As Int
    res = InputList(GeraeteListe, "Bitte Gerät wählen", 2) 'show list with paired devices
    If res <> DialogResponse.CANCEL Then
        blauerZahnDaten.Connect(PairedDevices.Get(GeraeteListe.Get(res))) 'convert the name to mac address
    End If
End Sub

On the Galaxy SII the popupscreen shows up only very shortly and disappears without offering the possibility to select an item.
The nucleus of the problem might not be in the different Android versions nor screen sizes since I have another application using the same bluetooth setup which is working correctly on the Galaxy.
So my question is: In order to see the popup menu generated by Inputlist, are there any precautions to be taken considerering the screen layout? If other view are covering the screen, how to get the Input-list screen to the foreground?

 

[Erel]

If you can reproduce it in a not too large project then please upload it.

 

[ValDog]

Hope this is adequate. Seems like the culprit is the call to "StartService(LocationTracker)." When I comment it out the InputList call works just fine. Hope you can figure out how to get around it...

 

[Erel]

You cannot show a modal dialog after calling StartService or StartActivity (Android doesn't allow it).

Use CallSubDelayed to call btnConnect_Click and it will work.

 

[ValDog]

Erel, thanks!

Not sure of the correct way to use this call in the same module, but "CallSubDelayed(Null,"btnConnect_Click")" seems to work...

 

[Erel]

Replace Null with Me.