Sub Activity_Create(FirstTime As Boolean)
SetMobileDataEnabled(True)
End Sub
Sub SetMobileDataEnabled(enabled As Boolean)
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
r.RunMethod2("setMobileDataEnabled", enabled, "java.lang.boolean")
End Sub