Olá Pessoal, preciso adicionar novos itens a um array :

Digo : Tenho 2 Array....

Array1(0) = "Mensagem 1" 
Array1(1) = "Mensagem 2"
Array1(2) = "Mensagem 3"
Array1(3) = "Mensagem 4"  

e

Array2(0) = "Texto 1"
Array2(1) = "Texto 2"
Array2(2) = "Texto 3"

 

Gostaria de criar um novo array pegando os itens do Array1 e os itens do Array2 para conseguir isso :

 

Array3(0) = "Mensagem 1" 
Array3(1) = "Mensagem 2"
Array3(2) = "Mensagem 3"
Array3(3) = "Mensagem 4"
Array3(4) = "Texto 1"
Array3(5) = "Texto 2"
Array3(6) = "Texto 3"

 

Só que os array´s são dinamicos... ou seja eu não tenho a quantidade dos itens em cada array.  Pois são criados apartir de consultas....

  

Ai se eu conseguir o resultado do Array3 preciso mostrar todos os
itens do array3 em um label.

for i = 0 to n
lblMensagem.Caption = Array3(i)
///////////////////
aguarda 5 segundos
///////////////////
next i

Tudo isso porque tenho que desenvolver um mecanismos de aviso para o cliente.

 
Agradeço Qualquer ajuda

 

JGD

vamos lá de novo...

 

Só um exemplo:

 

Dim a3 as Variant

 

Já pensou em usar collections? É muito mais simples e versátil que as arrays. Se quiser a gente te passa a solução com collections...

Ok ! Agradeço as dicas...  

kerplunk,
quero sim um ex: deste tal de colections...  Apresender nunca é demais

Agora tenho que parar o laço :

 

Dim Colecao1 As New Collection
Dim Colecao2 As New Collection
Dim Colecao3 As New Collection

Colecao1.Add "Mensagem 1"
Colecao1.Add "Mensagem 2"
Colecao1.Add "Mensagem 3"
Colecao1.Add "Mensagem 4"
 
Colecao2.Add "Texto 1"
Colecao2.Add "Texto 2"
Colecao2.Add "Texto 3"

For i% = 1 To Colecao1.Count
    Colecao3.Add Colecao1(i%)
Next i%
For i% = 1 To Colecao2.Count
    Colecao3.Add Colecao2(i%)
Next i%

 

Agora adicione a coleção 3 na janela de watch(marcando a palavra "colecao3", clicando com o botão direito e "Add Watch") e verifique o conteudo dela ;)

a pausa tem q ser dentro do for??