[RESOLVED] Trapping of arrays - HELP ME!!!!

[anhn]

strData() cannot be used without a Redim as mentioned in post#2.
However, you don't need strData() to add those captions into Listbox.

Option Explicit

Private Sub Command1_Click()
    Dim IntCounter     As Integer
                
    For IntCounter = 0 To 4
      If txtDana(IntCounter).Text <> "" Then
        List1.AddItem lblZwierzaki(IntCounter).Caption
      End If                               
    Next
      
End Sub

[Tamgovb]

Hi

anhn thank you, sorry, I knew about this. I need some way to trap the array because in my project I have to write in proper column these data in my ListBox (I use Send Message function to create these columns) The division of data on a columns, way to displays this, it all forces such solution (trapping arrays). This code will be as example only my prob.
Therefore I ask about some an example of code, showing how to trap this array?

Please help me, thanks in advance