Sub ClearCookies
Dim CookiesStorage As NativeObject
CookiesStorage = CookiesStorage.Initialize("NSHTTPCookieStorage").RunMethod("sharedHTTPCookieStorage", Null)
Dim Cookies As List = CookiesStorage.GetField("cookies")
For Each cookie As Object In Cookies
CookiesStorage.RunMethod("deleteCookie:", Array(cookie))
Next
End Sub