Dim Oblist As List
Dim Obj As JavaObject = GetContext.RunMethod("getSystemService", Array("phone"))
Oblist = Obj.RunMethodJO("getAllCellInfo", Null)
Dim ObjPri As JavaObject = Oblist.Get(0)
Dim ObjPriInfo As JavaObject = ObjPri.RunMethod("getCellIdentity",Null)
Dim ObjPriSgn As JavaObject = ObjPri.RunMethod("getCellSignalStrength",Null)
Log(ObjPriSgn)