VB6 webbrowser 内存无法释放解决办法

Private   Declare   Function   SetProcessWorkingSetSize   Lib   "kernel32 "   (ByVal   hProcess   As   Long,   ByVal   dwMinimumWorkingSetSize   As   Long,   ByVal   dwMaximumWorkingSetSize   As   Long)   As   Long
Private   Declare   Function   GetCurrentProcess   Lib   "kernel32 "   ()   As   Long

Private   Sub   Form_Unload(Cancel   As   Integer)
        SetProcessWorkingSetSize   GetCurrentProcess(),   -1&,   -1&
End   Sub