Sub OpenSettings(Section As String)
Dim DoAction As Intent
DoAction.Initialize("android.settings." & Section, "")
StartActivity(DoAction)
End Sub
Sub GetSettings(Setting As String) As String
Dim P As Phone
Return P.GetSettings(Setting)
End Sub