高手能不能告诉我如何给属性值赋数组

Question

Private msMenuCaption() as stringPublic Property Get MenuCaption()        On Error Resume Next
         MenuCaption = msMenuCaption
    End Property
    
    Public Property Let MenuCaption(ByVal New_MenuCaption As String)
        On Error Resume Next        If UBound(msMenuCaption) > 1 Then
        ReDim Preserve msMenuCaption(UBound(msMenuCaption) + 1)
        msMenuCaption(UBound(msMenuCaption) + 1) = New_MenuCaption
else
        msMenuCaption(0) = New_MenuCaption
        End If
    End Property

Answer 1

'ByVal New_MenuCaption As String 改为ByVal New_MenuCaption 
Public Property Let MenuCaption(ByVal New_MenuCaption)
    On Error Resume Next    If UBound(msMenuCaption) > 1 Then
        ReDim Preserve msMenuCaption(UBound(msMenuCaption) + 1)
        msMenuCaption(UBound(msMenuCaption) + 1) = New_MenuCaption
    Else
        msMenuCaption(0) = New_MenuCaption
    End If
End Property