Sub SetVibrateWhenRinging(Enabled As Boolean)
Dim val As Int
If Enabled Then val = 1 Else val = 0
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
r.RunStaticMethod("android.provider.Settings$System", "putInt", _
Array As Object(r.Target, "vibrate_when_ringing", val), _
Array As String("android.content.ContentResolver", "java.lang.String", "java.lang.int"))
End Sub