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