Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal _
  process As IntPtr, ByVal minimumWorkingSetSize As Integer, ByVal _
  maximumWorkingSetSize As Integer) As Integer
 
    Public Shared Sub FlushMemory()
        GC.Collect()
        GC.WaitForPendingFinalizers()
        If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
            SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)
        End If
    End Sub