I know this question has been asked on this forum before. Mostly without an answer.
But now I got the answer.
Code:
Dim p As Process
For Each p In p.GetProcesses
lblMemUsage.Text = p.ToString.Remove(0, 27).ToLower & " " & (p.WorkingSet / 1024).ToString("0,000") & " K"
Next
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.