VB.NET降低内存的方法

  物理内存转虚拟内存的方法

Private   Declare   Auto   Function   SetProcessWorkingSetSize   Lib   "kernel32.dll"   (ByVal   procHandle   As   IntPtr,   ByVal   min   As   Int32,   ByVal   max   As   Int32)   As   Boolean  
Public   Sub   SetProcessWorkingSetSize()  
       Try  
                 Dim   Mem   As   Process  
                 Mem   =   Process.GetCurrentProcess()  
                 SetProcessWorkingSetSize(Mem.Handle,   -1,   -1)  
         Catch   ex   As   Exception  
                 MsgBox(ex.ToString)  
         End   Try  
End   Sub