Kontakt
DSVGO
Private pTag As Variant Public Property Get Tag() As Variant If IsObject(pTag) Then Set Tag = pTag Else Tag = pTag End If End Property 'Diese Prozedur wird aufgerufen, wenn ein 'Objekt zugewiesen wird: Public Property Set Tag(aTag As Variant) Set pTag = aTag End Property 'Diese Prozedur wird andernfalls bei einer 'Zuweisung aufgerufen: Public Property Let Tag(aTag As Variant) pTag = aTag End Property
© Jost Schwider, 30.04.2000-30.04.2000 - http://vb-tec.de/properts.htm