Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles _
    ListBox1.MouseDown, ListBox2.MouseDown, ListBox3.MouseDown, _
    ListBox4.MouseDown, _
    ListBox5.MouseDown, ListBox6.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim lb As ListBox = CType(sender, ListBox)
            Dim item As Int32 = lb.IndexFromPoint(e.X, e.Y)
            If item > -1 Then
                Dim fi As New IO.FileInfo(CType(lb.Items(item), DataItem).Pfad)
                        Dim pr As New Process
        pr.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
        pr = pr.Start(fi.DirectoryName)
                'MsgBox("Dateiname: " & fi.Name & vbCrLf & _
                '       "Verzeichnis: " & fi.Directory.Name & vbCrLf & _
                '       "LastAccessTime: " & fi.LastAccessTime & vbCrLf & _
                '       "LastWriteTime:  " & fi.LastWriteTime & vbCrLf, _
                '       MsgBoxStyle.Information, "FileInfo")
            End If
        End If
    End Sub