richiamare oggetti creati da codice

[ale500]

salve...ho creato degli oggetti da codice in questo modo:

[supersaibal]

Private Sub CreaStruttura(i As Integer)
Dim Frame1() As Frame
Dim Picture1() As PictureBox
Dim Text1() As TextBox
Dim Text2() As TextBox
ReDim Frame1(i)
ReDim Picture1(i)
ReDim Text1(i)
ReDim Text2(i)

Set Frame1(i) = Scelta.Controls.Add("VB.Frame", "Fr" & i)
Set Picture1(i) = Scelta.Controls.Add("VB.PictureBox", "Pic" & i, Frame1(i))
Set Text1(i) = Scelta.Controls.Add("VB.TextBox", "Tex1" & i, Frame1(i))
Set Text2(i) = Scelta.Controls.Add("VB.TextBox", "Tex2" & i, Frame1(i))

With Frame1(i)
.Width = 1335
.Height = 1750
.Top = 105
.Left = 105 + Frame1(i).Width * i + 100 * i
.Visible = True
End With

With Picture1(i)
.Height = fisso
.Width = fisso
.Left = 120
.Top = 240
.AutoRedraw = True
.Appearance = 0
.ScaleMode = 3
.Visible = True
End With

With Text1(i)
.Font = "MS Serif"
.FontSize = 6
.Height = 255
.Width = 255
.Left = 120
.Top = 1440
.Visible = True
End With

With Text2(i)
.Font = "MS Serif"
.FontSize = 6
.Height = 255
.Width = 735
.Left = 480
.Top = 1440
.Visible = True
End With

End Sub
[/supersaibal]

ma in altri eventi come faccio a far riferimento a questi oggetti creati da codice... ho provato con il nome che gli ho dato (PIc1, Fr1) ma non funzia...perchè???

grazie dell'aiuto...

PS
in VB non posso are così:

Dim WithEvents ale() as tipo

ma soltanto così:

Dim WithEvents ale as tipo

ma come faccio a creare una matrice di controlli ed in più fare in modo che si associa agli eventi???

grazie di tutto...

[ale500]

nessuno sa niente...

aiuto...:gren: :gren: