Public Class FileMenuItem
    Inherits MenuItem
 
    ' Der vollständige Pfad
    Public ReadOnly Path As String
 
    ' Zusätzliche Referenz zur freien Verfügung
    Public Tag As Object
 
      Public Sub New(ByVal path As String, ByVal ctrl As Control, _
      ByVal width As Integer, ByVal tag As Object, _
      ByVal handler As System.EventHandler)
      ' die zusätzlichen Parameter werden für die Pfakürzungroutine benötigt....
 
        Dim short as string = ' --> Aufruf der Pfadkürzungsroutine
        ' Delegation an Konstruktor der Basisklasse 
        MyBase.New(short, handler)
 
        ' Zusätzliche Member-Variablen setzen
        Me.Path = path
        Me.Tag = tag
 
    End Sub

....
MNDatei.MenuItems.Add(New FileMenuItem(CStr(ConfigData.LastOpen(i)), Me, 150, _
  Nothing, AddressOf MenuClick))
....