Private ad() As String
 
Public Property Get d() As String()
d = ad
End Property
 
Public Property Let d(Value() As String)
ad = Value
End Property
 
Private Sub Form_Load()
ReDim d(1)
d(0) = "a"
d(1) = "b"
MsgBox d(0)
MsgBox d(1)
End Sub

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.