Sub TestSim
Dim manager As JavaObject
Dim context As JavaObject
context.InitializeContext
manager = manager.InitializeStatic("android.telephony.SubscriptionManager").RunMethod("from", Array(context))
Dim infos As List = manager.RunMethod("getActiveSubscriptionInfoList", Null)
For Each info As JavaObject In infos
Log(info)
Log(info.RunMethod("getDisplayName", Null))
Log(info.RunMethod("getNumber", Null))
Next
End Sub