Public Function ProcessInfo() As String()
    Dim iCount As Integer
    Dim Processes As Variant
    Dim ProcessEnum As Variant
    Dim Process As Variant
    Dim returnStringArray() As String
 
    Set Processes = GetObject("winmgmts://localhost")
    Set ProcessEnum = Processes.ExecQuery("select * from Win32_Process")
 
    ReDim arrString(ProcessEnum.Count) As String
 
    iCount = 1
    For Each Process In ProcessEnum
        arrString(iCount) = Process.processid & " " & Process.ExecutablePath
        iCount = iCount + 1
    Next
 
    ProcessInfo = arrString
End Function

    Dim () As String
    Dim i as intetger
    procinfo = ProcessInfo
 
    For i = LBound(procinfo) To UBound(procinfo)
        Call List1.AddItem(procinfo(i))
    Next

Gru?

Ralf