Tornar Propriedade Um Vetor

[Manwë Súlimo]

Olá pessoal

Public Property Get ListaDeRestricoes() As TP_restricao
ListaDeRestricoes = total_restricao
End Property

Pessoal ai eu to tentando adicionar um vetor inteiro a uma propriedade, nesse caso a propriedade vai virar um vetor automaticamente ou não??

total_restricao ai é o vetor....

e dá p/ eu adicionar um vetor inteiro todo de uma vez a uma variavel, e essa variavel se tornar automaticamente um vetor igual ao outro???

espero que me possam em ajudar...

até mais

[Graymalkin]

Sim, mas o retorno da propriedade tem que ser Variant (pelo menos foi como

consegui aqui):

Public Property Get ListaDeRestricoes() As Variant
      ListaDeRestricoes = total_restricao
End Property

Quanto a copiar um vetor inteiro para outro, veja esse exemplo:

    Dim a() As Integer
    Dim b() As Integer

    ReDim a(2)
    a(0) = 3
    b = a
    MsgBox b(0)

Abraços,

Graymalkin