Sub ClearHistory
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
r.RunStaticMethod("android.provider.Browser", _
"clearHistory", Array As Object(r.Target), Array As String("android.content.ContentResolver"))
End Sub