Public Class Form1
    Dim WithEvents Lb As New ListBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Lb.Dock = DockStyle.Fill
        Lb.Parent = Me
        For Each p As Process In Process.GetProcesses
            Lb.Items.Add(p.ProcessName)
        Next
    End Sub
 
    Private Sub Lb_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Lb.SelectedIndexChanged
        Dim s As String = ""
        Dim p() As Process = Process.GetProcessesByName(Lb.SelectedItem)
        s &= "Process: " & p(0).ProcessName & vbCrLf & vbCrLf
        Try
            s &= "Firma :  " & p(0).MainModule.FileVersionInfo.CompanyName & _
              vbCrLf
            s &= "Version :  " & p(0).MainModule.FileVersionInfo.ProductVersion _
            & vbCrLf
            s &= "Exe:  " & p(0).MainModule.ModuleName & vbCrLf
            s &= "Größe: " & p(0).MainModule.ModuleMemorySize & " Byte" & vbCrLf
            s &= "Pfad: " & IO.Path.GetDirectoryName(p(0).MainModule.FileName) _
              & vbCrLf
        Catch ex As Exception
        End Try
        MsgBox(s, , "Prozess-Infos")
    End Sub
End Class