Dim i As Intent
i.Initialize("android.bluetooth.adapter.action.REQUEST_DISCOVERABLE", "")
i.PutExtra("android.bluetooth.adapter.extra.DISCOVERABLE_DURATION", 300)
StartActivity(i)
Dim rT As Reflector
Dim btIntent As Intent
btIntent.Initialize("","")
rT.Target = btIntent.GetExtra("android.bluetooth.device.extra.DEVICE")
Dim Name As String
Name = rT.RunMethod("getName")
Log("BlueToothName is = " & Name)
Log("Start bluetooth listen...")
serial1.Listen