Private Sub changecomp (actn As String,enable As Boolean )
Try
Dim reflector As Reflector
Dim context As Object = reflector.CreateObject2("android.content.ComponentName", _
Array As Object(Application.PackageName, Application.PackageName&"."&actn), Array As String("java.lang.String", "java.lang.String"))
reflector.Target = reflector.GetContext
reflector.Target = reflector.RunMethod("getPackageManager")
Dim num As Int
If enable = True Then
num = 1
Else
num = 2
End If
reflector.Target = reflector.RunMethod4("setComponentEnabledSetting", Array As Object(context, num, 0), _
Array As String("android.content.ComponentName", "java.lang.int", "java.lang.int"))
Catch
Log(LastException)
End Try
End Sub