Impostare l'oggeto con:
- Index = 0
- Visible = False
Ecco il codice
On Error Resume Next Dim i As Integer For i = 1 To 5 Load Text1(i) Text1(i).Left = 1500 Text1(i).Top = i * 1000 Text1(i).Visible = True Next i
On error resume next è stato scritto affinkè se il codice viene inserito in un commandbutton, e si clikka vengono generati altri oggetti, (nel codice ke ho scritto io vengono generate 5 textbox, ma può essre modiifcato a vostro piacere), e poi si clikka di nuovo fa errore...
Aggiungi un commento