Public Class MyMenuItem
    Inherits System.Windows.Forms
 
    Private m_Name as string ' eine private Variabel die den aktuellen zustand 
    ' speichert
    Public Property Name as string
        Get
            return m_Name
        End Get
        Set(Value as string)
            m_Name = Value
        End Set
    End Property
 
    Public Sub New()
 
        MyBase.New() ' das new der basisklasse aufrufen, damit das objekt mal 
        ' richtig da ist
 
        m_Name = "" ' alle private members (deswegen auch m_ davor) auf 
        ' standardwert setzten
 
    End Sub
End Class