VB --- Controls Add ????

[superesse]

Ciao ragazzi ho un problema ,

in run time mi creo un oggetto label

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
TextCount = TextCount + 1
Set NewObj = Controls.Add("VB.Label", "Label" & TextCount)
With NewObj
.Visible = True
.Caption = InputBox("Inserisci il testo", "Testo")
.Top = 10
.Left = 10
.Width = 2175
End With
Me.Refresh
End Sub

Il problema che devo creare n label , e ogni label devo fare il drag drop , come faccio a identificarli e fare il drag drop?

[gkcuvb]

Hai pensato a creare una matrice di controlli?

[superesse]

Si però che ci faccio ? Come la referenzio quando devo fare il drag drop? Hai qualke esempio?

[Dardino]

se ti crei una matrice di controlli hai provato a referenziarli con la proprietà index?

[superesse]

sembra che con il withevents riesca a leggerli..quando ho finito posto il codice