Public Variable as long

Public Property aktuellesObjekt as long()
    Get
        ' irgendwelche berechnungen was weis ich
        return irgendeinwert
    end get
    Set (Value as long)
        if m_aktuellesObjekt <> Value then
            m_aktuellesObjekt = Value
            InitForm() 'funktion die auf diese änderung reagiert und das 
            ' formular an den neuen wert anpasst
        end if
    end Set
End PRoperty

Public ReadOnly irgendwas Property
    Get
        return m_irgendwas
    end Get
end Property