What have you tried? It should work something like this:
Dim x As Process = Process.GetCurrentProcess()
Dim inf As String
inf = "Mem Usage: " & x.WorkingSet / 1024 & " K" & vbCrLf _
& "Paged Memory: " & x.PagedMemorySize / 1024 & " K"
MessageBox.Show(inf, "Memory Usage")
Feel free to adapt to your needs.
source
share