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