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)
                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