Sub DelLogsCalls
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
Dim CONTENT_URI As Object = _
r.GetStaticField("android.provider.CallLog$Calls", "CONTENT_URI")
r.RunMethod4("delete", Array As Object(CONTENT_URI, Null, Null), Array As String("android.net.Uri", "java.lang.String", "[Ljava.lang.String;"))
''You should also add the following permissions:
''AddPermission("android.permission.READ_CONTACTS")
''AddPermission("android.permission.WRITE_CONTACTS")
End Sub