Option Explicit

Private Type PROCESSENTRY32
    dwSize                  As Long
    cntUsage                As Long
    th32ProcessID           As Long
    th32DefaultHeapID       As Long
    th32ModuleID            As Long
    cntThreads              As Long
    th32ParentProcessID     As Long
    pcPriClassBase          As Long
    dwFlags                 As Long
    szExeFile               As String *  260 
End Type

Private Const ParseMe   As String = ""    'I'll use this variable (chr(1)) to split up a string.

Private Declare Function CreateToolhelp32Snapshot Lib "KERNEL32.DLL" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "KERNEL32.DLL" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "KERNEL32.DLL" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "KERNEL32.DLL" (ByVal hHandle As Long) As Long
Private Declare Function OpenProcess Lib "KERNEL32.DLL" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "KERNEL32.DLL" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Private Function CleanItUp(ByVal strOrig As String) As String

    CleanItUp = Left$(strOrig, InStr(strOrig, vbNullChar) -  1 )
     'shortens the original by stopping at the first vbNullChar it comes to

End Function


Private Sub Command1_Click()

Dim pProcesses As String   'declare variables
Dim lList()    As String
Dim I          As Long
    List1.Clear 'Clear List1 of any existing information
    pProcesses = GetTheProcesses 'see the function GetTheProcesses
    lList = Split(pProcesses, ParseMe) 'adds data to the string array as needed
    For I =  0  To (UBound(lList) -  1 ) 'starts a loop so we can add to List1
AddinList (txtData)
        I = I +  1 
         'We've already used I + 1 in the above line.
             'There's a better way of doing this with a ListView control, but that's not what
             'this Demo is for.  I wanted to keep it as simple as possible.
    Next I 'next loop

End Sub

Private Function GetTheProcesses() As String

Dim pProcess  As PROCESSENTRY32  'declare variables
Dim sSnapShot As Long
Dim rReturn   As Integer

    sSnapShot = CreateToolhelp32Snapshot( 15 ,  0 ) 'setting variables
    pProcess.dwSize = Len(pProcess)
    Process32First sSnapShot, pProcess 'gets the first process ([System Process])
    Do 'starts another loop
        GetTheProcesses = GetTheProcesses & CleanItUp(pProcess.szExeFile) & ParseMe & pProcess.th32ProcessID & ParseMe 'adds to the string variable the next process and ID
        rReturn = Process32Next(sSnapShot, pProcess)
         'gets the next process so we know to loop again
        DoEvents 'free's up the computer
    Loop While rReturn <>  0  'as long as there's a next process, we'll loop again
    CloseHandle sSnapShot 'frees up the handle

End Function

Sub AddinList(txtData As String)
Dim Str1 As String, Str2 As String
Dim Position As Long, LItem As ListItem
    
    TaskmanagerFrm.TaskListView.ListItems.Clear
    While Len(txtData) >  0 

Str2 = Val(txtData)

    
        Position = InStr( 1 , txtData, "")
        Str1 = Left(txtData, Position -  1 )
        txtData = Mid(txtData, Position +  1 )
        Set LItem = TaskmanagerFrm.TaskListView.ListItems.Add(, , Str1, ,  1 )
      LItem.SubItems( 1 ) = Str2
    Wend
End Sub

Dim a as String
On Error Resume Next
    Set LItem = TaskListView.SelectedItem
    If Len(LItem.Text) >  0  Then
     a =  MsgBox Trim(LItem.Text) ' текстовая переменная

    End If

MsgBox LItem.SubItems( 1 )