Public Class MyMenuItem
    Inherits System.Windows.Forms.MenuItem
 
    Private m_FunktionName as string 
    Public Property FunktionName as string
        Get
            return m_FunktionName
        End Get
        Set(Value as string)
            m_FunktionName = Value
        End Set
    End Property
 
End Class
'...
                    Dim mnu As New MyMenuItem("das sieht man")
                    mnu.FunktionName = "das_soll_ausgefuehrt_werden"
'...
    Private Sub mnu_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim mnu As MyMenuItem = CType(sender, MyMenuItem)
        Dim FunktionsName as String = mnu.FunktionsName