Private nNummer As Long
Private nKopfdaten(5) As cFeld
 
Public Property Get Kopfdaten(ByVal intIndex As Integer) As Integer
  Kopfdaten = nKopfdaten(intIndex)
End Property
 
Public Property Let Kopfdaten(ByVal intIndex As Integer, Byval NewValue As _
  cFeld)
  nKopfdaten(intIndex) = NewValue
End Property
 
Public Property Get Nummer() As Integer
  Nummer = nNummber
End Property
 
Public Property Let Nummer(Byval NewValue As cFeld)
  nNummer = NewValue
End Property

        Public nNummer As Long
        Public Kopfdaten(5) As cFeld

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.