Private Sub refreshList()
        Dim process_Name As Process
        Dim listindex As Integer = 0
        Dim fileinfo As String = String.Empty
        list_Process.Items.Clear()
        For Each process_Name In Process.GetProcesses
            With list_Process.Items.Add(process_Name.ProcessName.ToString & _
              ".exe")
                .SubItems.Add(process_Name.Id.ToString)
                Try
                    If IO.File.Exists( _
                      process_Name.MainModule.FileName.ToString) Then
                        fileinfo = FileVersionInfo.GetVersionInfo( _
                        process_Name.MainModule.FileName.ToString).FileDescript_
                        ion.ToString
                    Else
                        fileinfo = process_Name.MainModule.FileName.ToString
                    End If
                    .SubItems.Add(fileinfo)
                Catch
                    .SubItems.Add("")
                End Try
            End With
        Next
    End Sub

fileinfo = FileVersionInfo.GetVersionInfo( _
  process_Name.MainModule.FileName.ToString).FileDescription.ToString

__________________________________________________________
www.steffen-blogging.de
Ich bin Synoroot und das ist gut so! =D