[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