[VB6] Clonare un controllo già presente nel Form

[RobMcSword]

qualcuno sa se in vb6 e' possibile replicare un controllo (una casella di testo, una label, ecc) gia' presente nel form in run-time?

[LMondi]

Ciao RobMcSword.
Disegna, ad esempio, sulla Fom un Text1 e un Combo1, entrambi con Index = 0
Per caricare i successivi si deve fare:

Private Sub Command1_Click()

Dim n As Integer
Dim k As Integer
'Per aggiungere 5 controlli:
n = 5

    For k = 1 To n
        'carica il nuovo Text1:
        Load Text1(Text1.Count)
        'carica il nuovo Combo1:
        Load Combo1(Combo1.Count)
        ' sposta il nuovo Text1 sotto il precedente:
        Text1(Text1.Count - 1).Move Text1(k - 1).Left, Text1(k - 1).Top + (Text1(k - 1).Height)
        ' sposta il nuovo Combo1 sotto il precedente:
        Combo1(Combo1.Count - 1).Move Combo1(k - 1).Left, Combo1(k - 1).Top + (Combo1(k - 1).Height)
        ' li rende visibili entrambi:
        Text1(Text1.Count - 1).Visible = True
        Combo1(Combo1.Count - 1).Visible = True
    Next k
End Sub

[RobMcSword]

provero' al piu' presto.
grazie

javascript:void(0);
Ciauz