[VB6] estrarre caption da una serie di check box

[zanlu88s]

Buona sera a tutti.
Dovrei tirare fuori le caption di una serie di check box.
Ho creato in questo modo "n" check box

Dim BoxNew As CheckBox   
Set BoxNew = Controls.Add("VB.CheckBox", "Check" & i)   
With BoxNew     
     .Move x, y, z     
     .Visible = True     
     .Caption = linea     
     .Width = 2500     
      .Value = 1

ora però mi trovo tanti Check1, check2, check3.. ecc
Dovendo estrarre la Caption però mi trovo di fronte ad un muro.

For j = 1 To i 
cat = Check & j.Caption 
Next

Ovviamente così non funziona.. come posso pr<endere la caption collegando al nome dell'oggetto l'indice "j" ???

Vi ringrazio anticipatamente

GIanluca

[gibra]

Ovviamente, avendo creato il controllo con
Controls.Add
non ha alcun indice, quindi non puoi.

Se vuoi utilizzare l'indice, devi creare un array di CheckBox, ovvero
In fase di progettazione
- crei il primo CheckBox (Check1)
- imposti la proprietà Index = 0

In fase di esecuzione,
il primo l'hai già ed è Check1(0) mentre i successivi li devi caricare usando Load.
Ad esempio il codice sotto carica 3 controlli (+ 1)

Dim i As Long
Dim y As Long
y = 500

For i = 0 To 3
    If i > 0 Then Load Check1(i)
    With Check1(i)
        .Move 1200 * i, y
        .Width = 1200
        .Value = 1
        .Caption = "Check " & i
        .Visible = True
    End With
Next i