Hola seba, mi estructura es algo parecida:
Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long ' This process
th32DefaultHeapID As Long
th32ModuleID As Long ' Associated exe
cntThreads As Long
th32ParentProcessID As Long ' This process's parent process
pcPriClassBase As Long ' Base priority of process threads
dwFlags As Long
szExeFile As String * 260 ' MAX_PATH
End Type
La saque de microsoft support.
Ahora lo que yo hacia era lo siguiente:
Dim txtprocess() As String
Dim pathrv As String
Dim path As String
path = List1.List(List1.ListIndex)
pathrv = StrReverse(path)
If pathrv <> "" Then
txtprocess = Split(pathrv, "\")
Text1.Text = StrReverse(txtprocess(0))
Else
MsgBox "No se encuentra proceso"
End If
para determinar mi proceso .exe, pero al fin y al cabo al parece no me sirve.
Lo que necesito es que cuando selecciono el item de la lista me aparezca su pid en un textbox.