Sub ClearCallLogs
Dim CON As ContentResolver, r As Reflector, CONTENT_URI As Object
CON.Initialize("")
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
CONTENT_URI = r.GetStaticField("android.provider.CallLog$Calls", "CONTENT_URI")'content://call_log/calls
CON.Delete(CONTENT_URI, "DURATION >= 0",Null)
'r.RunMethod4("delete", Array As Object(CONTENT_URI, Null, Null), Array As String("android.net.Uri", "java.lang.String", "[Ljava.lang.String;"))
End Sub