Sub WriteSetting(Setting As String, Value As Float)
Dim r1 As Reflector
Dim args(3) As Object
Dim types(3) As String
r1.Target = r1.GetContext
args(0) = r1.RunMethod("getContentResolver")
types(0) = "android.content.ContentResolver"
args(1) = Setting
types(1) = "java.lang.String"
args(2) = Value
types(2) = "java.lang.float"
r1.RunStaticMethod("android.provider.Settings$System", "putFloat", args, types)
End Sub