Función para liberar Memoria no utilizada en vb.net

Muchas veces cuando realizamos nuestra aplicaciones nos despreocupamos de la memoria que esta utiliza y terminan cayéndose por uso excesivo de memoria. En esta oportunidad les traemos una excelente función que les permitirá liberar toda la memoria que el programa no este utilizando, esperamos sea de su utilidad.

Module Utilidades

    Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean

    Public Sub LiberarMemoria()

     Try

      Dim memoria As Process
      memoria = Process.GetCurrentProcess()
      SetProcessWorkingSetSize(memoria.Handle, -1, -1)

     Catch ex As Exception

     End Try

    End Sub

End Module

Saludos