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?
