Visual Basic 6 ( VB6 ) é uma linguagem de programação da Microsoft. A linguagem deriva da linguagem de programação BASIC originais. VB6 é muito mais simples do que outras linguagens de programação , mas é poderoso em seu próprio direito . VB6 usa algumas das mesmas construções de programação , tais como classes, funções, loops, instruções condicionais e matrizes . VB6 matrizes são usados ​​para armazenar os itens de valor semelhante . Na codificação de aplicativos, você pode precisar copiar os itens em um array para outro , o que pode ser feito com linhas de código VB6. Instruções
1

Abra o Visual Basic 6 .
2

Selecione " Standard EXE " da nova lista de projetos.
3

vá para a barra de menu superior. Clique em " Project" e "Add Module. " Este processo irá adicionar um módulo de código padrão para o seu projeto VB6.
4

Digite ou copie e cole o seguinte código no módulo .

Public Sub CopyArray ( FromArray As Variant , ToArray As Variant )

Dim l As Long , lUBound As Long , lLBound As Long

Se (Não IsArray ( FromArray ) ) Or ( Não IsArray ( ToArray ) ) Then Exit Sub

lLBound = LBound ( FromArray )

lUBound = UBound ( FromArray )

ReDim ToArray ( lLBound Para lUBound )

Para l = lLBound Para lUBound

ToArray ( l) = FromArray ( l)

Próxima

End Sub

Sub TestCopyArry ()

Dim i (2) As Integer , j () As Integer Dim

ICTR As Integer

i ( 0) = 5

i (1) = 8

i (2 ) = 10

CopyArray i, j

Para ICTR = 0 To UBound ( j)

Debug.Print j ( TPIR)

Próxima

End Sub