いくつかの方法はありますが、PerformanceCounterクラスを使う方法が手軽だと思います。

次の例はPerformanceCounterクラスを使ってdevenvというプロセスの使用メモリ量を表示します。

Dim monitor As New PerformanceCounter

monitor.CategoryName = "Process"

monitor.CounterName = "Working set - private"

monitor.InstanceName = "devenv"



MsgBox(monitor.RawValue \ 1024 & "K")

PerformanceCounterはコントロールでもあるので、デザイン時にTimerなどと同じように貼り付けてプロパティウィンドウで設定して使うこともできます。