VB获得其他程序的内存使用情况!

‘获取当前的程序内存占用（生成exe后运行）:
Private Sub Timer1_Timer()
Dim myUsage As Double
myUsage = RamUsage
Label1.Caption = FormatUsage(myUsage) & "K (" & FormatUsage(myUsage / 1024) & " Mb)"
End Sub

Private Function RamUsage(Optional strProcess As String = "") As Double
If strProcess = "" Then strProcess = UCase(App.EXEName) & ".EXE" 'Will count the current application as the process if no arguments given
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & strProcess & "'")
For Each objProcess In colProcessList
RamUsage = objProcess.workingSetSize / 1024
Next
End Function

Private Function FormatUsage(tUsage As Double)