Dim i As Intent
If pPhone.GetSettings("data_roaming") = 0 Then
Msgbox("Roaming is not enabled", "Error")
Else
i.Initialize(i.ACTION_MAIN, "")
i.Action = "ACTION_NETWORK_OPERATOR_SETTINGS"
i.SetComponent("com.android.phone/.MobileNetworkSettings")
StartActivity(i)
End If