Option Explicit

Private Sub ShowProcesses()
    Dim Process As Variant
    For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
        
        Text1.SelText = Text1.SelText & vbCrLf & "Caption " & vbTab & vbTab & vbTab & vbTab & " = " & vbTab & Process.Caption
        Text1.SelText = Text1.SelText & vbCrLf & "CommandLine " & vbTab & vbTab & vbTab & " = " & vbTab & Process.CommandLine
        Text1.SelText = Text1.SelText & vbCrLf & "CreationClassName " & vbTab & vbTab & vbTab & " = " & vbTab & Process.CreationClassName
        Text1.SelText = Text1.SelText & vbCrLf & "CreationDate " & vbTab & vbTab & vbTab & " = " & vbTab & Process.CreationDate
        Text1.SelText = Text1.SelText & vbCrLf & "CSCreationClassName " & vbTab & vbTab & " = " & vbTab & Process.CSCreationClassName
        Text1.SelText = Text1.SelText & vbCrLf & "CSName " & vbTab & vbTab & vbTab & vbTab & " = " & vbTab & Process.CSName
        Text1.SelText = Text1.SelText & vbCrLf & "Description " & vbTab & vbTab & vbTab & " = " & vbTab & Process.Description
        Text1.SelText = Text1.SelText & vbCrLf & "ExecutablePath " & vbTab & vbTab & vbTab & " = " & vbTab & Process.ExecutablePath
        Text1.SelText = Text1.SelText & vbCrLf & "Handle " & vbTab & vbTab & vbTab & vbTab & " = " & vbTab & Process.Handle
        Text1.SelText = Text1.SelText & vbCrLf & "HandleCount " & vbTab & vbTab & vbTab & " = " & vbTab & Process.HandleCount
        Text1.SelText = Text1.SelText & vbCrLf & "KernelModeTime " & vbTab & vbTab & vbTab & " = " & vbTab & Process.KernelModeTime
        Text1.SelText = Text1.SelText & vbCrLf & "MaximumWorkingSetSize " & vbTab & vbTab & " = " & vbTab & Process.MaximumWorkingSetSize
        Text1.SelText = Text1.SelText & vbCrLf & "MinimumWorkingSetSize " & vbTab & vbTab & " = " & vbTab & Process.MinimumWorkingSetSize
        Text1.SelText = Text1.SelText & vbCrLf & "Name " & vbTab & vbTab & vbTab & vbTab & " = " & vbTab & Process.Name
        Text1.SelText = Text1.SelText & vbCrLf & "OSCreationClassName " & vbTab & vbTab & " = " & vbTab & Process.OSCreationClassName
        Text1.SelText = Text1.SelText & vbCrLf & "OSName " & vbTab & vbTab & vbTab & vbTab & " = " & vbTab & Process.OSName
        Text1.SelText = Text1.SelText & vbCrLf & "OtherOperationCount " & vbTab & vbTab & " = " & vbTab & Process.OtherOperationCount
        Text1.SelText = Text1.SelText & vbCrLf & "OtherTransferCount " & vbTab & vbTab & " = " & vbTab & Process.OtherTransferCount
        Text1.SelText = Text1.SelText & vbCrLf & "PageFaults " & vbTab & vbTab & vbTab & " = " & vbTab & Process.PageFaults
        Text1.SelText = Text1.SelText & vbCrLf & "PageFileUsage " & vbTab & vbTab & vbTab & " = " & vbTab & Process.PageFileUsage
        Text1.SelText = Text1.SelText & vbCrLf & "ParentProcessId " & vbTab & vbTab & vbTab & " = " & vbTab & Process.ParentProcessId
        Text1.SelText = Text1.SelText & vbCrLf & "PeakPageFileUsage " & vbTab & vbTab & " = " & vbTab & Process.PeakPageFileUsage
        Text1.SelText = Text1.SelText & vbCrLf & "PeakVirtualSize " & vbTab & vbTab & vbTab & " = " & vbTab & Process.PeakVirtualSize
        Text1.SelText = Text1.SelText & vbCrLf & "Priority " & vbTab & vbTab & vbTab & vbTab & " = " & vbTab & Process.Priority
        Text1.SelText = Text1.SelText & vbCrLf & "PrivatePageCount " & vbTab & vbTab & vbTab & " = " & vbTab & Process.PrivatePageCount
        Text1.SelText = Text1.SelText & vbCrLf & "ProcessId " & vbTab & vbTab & vbTab & " = " & vbTab & Process.ProcessId
        Text1.SelText = Text1.SelText & vbCrLf & "QuotaNonPagedPoolUsage " & vbTab & vbTab & " = " & vbTab & Process.QuotaNonPagedPoolUsage
        Text1.SelText = Text1.SelText & vbCrLf & "QuotaPagedPoolUsage " & vbTab & vbTab & " = " & vbTab & Process.QuotaPagedPoolUsage
        Text1.SelText = Text1.SelText & vbCrLf & "QuotaPeakNonPagedPoolUsage " & vbTab & " = " & vbTab & Process.QuotaPeakNonPagedPoolUsage
        Text1.SelText = Text1.SelText & vbCrLf & "QuotaPeakPagedPoolUsage " & vbTab & vbTab & " = " & vbTab & Process.QuotaPeakPagedPoolUsage
        Text1.SelText = Text1.SelText & vbCrLf & "ReadOperationCount " & vbTab & vbTab & " = " & vbTab & Process.ReadOperationCount
        Text1.SelText = Text1.SelText & vbCrLf & "ReadTransferCount " & vbTab & vbTab & " = " & vbTab & Process.ReadTransferCount
        Text1.SelText = Text1.SelText & vbCrLf & "SessionId " & vbTab & vbTab & vbTab & " = " & vbTab & Process.SessionId
        Text1.SelText = Text1.SelText & vbCrLf & "ThreadCount " & vbTab & vbTab & vbTab & " = " & vbTab & Process.ThreadCount
        Text1.SelText = Text1.SelText & vbCrLf & "UserModeTime " & vbTab & vbTab & vbTab & " = " & vbTab & Process.UserModeTime
        Text1.SelText = Text1.SelText & vbCrLf & "VirtualSize " & vbTab & vbTab & vbTab & " = " & vbTab & Process.VirtualSize
        Text1.SelText = Text1.SelText & vbCrLf & "WindowsVersion " & vbTab & vbTab & vbTab & " = " & vbTab & Process.WindowsVersion
        Text1.SelText = Text1.SelText & vbCrLf & "WorkingSetSize " & vbTab & vbTab & vbTab & " = " & vbTab & Process.WorkingSetSize
        Text1.SelText = Text1.SelText & vbCrLf & "WriteOperationCount " & vbTab & vbTab & " = " & vbTab & Process.WriteOperationCount
        Text1.SelText = Text1.SelText & vbCrLf & "WriteTransferCount " & vbTab & vbTab & vbTab & " = " & vbTab & Process.WriteTransferCount
        Text1.SelText = Text1.SelText & vbCrLf & ""
        Text1.SelText = Text1.SelText & vbCrLf & ""
    Next
End Sub

Private Sub Form_Load()
    Me.Width = Screen.Width
    Me.Height = Screen.Height - 1000
    Text1.Width = Me.Width - 300
    Text1.Height = Me.Height - 200
    Call ShowProcesses
End Sub