Opened processes

[darknuke]

I can use

        Dim i As Integer
        Dim processList() As Process
        processList = System.Diagnostics.Process.GetProcesses(System.Environment.MachineName)
        For i = 0 To UBound(processList)
            openList.Items.Add(processList(i).ProcessName)
        Next

to list open processes and their captions, but that will not list all open windows. Is there a way to list all open windows?