[VB6] Creare dinamicamente pulsanti indicizzati

[Alexinfa]

Salve a tutti,
ho un problema con il visual basic 6; vorrei, premendo un pulsante in un form che il visualbasic mi crei un nuovo pulsante.

Mi spiego meglio, creo un pulsante di nome "pippo" e ogni qualvolta clikko su "pippo" il vb mi deve creare un nuovo pulsante.

Io ho provato con tale codice:

Dim Numero_pulsante
Dim Pulsante(10) as Commandbutton


Private Sub pippo_Click()

Numero_pulsante = Numero_pulsante + 1

Load Pulsante(Numero_pulsante) '<-- vorrei che mi caricasse il pulsante

Pulsante(Numero_pulsante).Caption = "Pulsante Numero " & Numero_pulsante

End Sub

Ma mi da errore.

Grazie in anticipo per la risposta.

[Brainjar]

Crei un pulsante nuovo, ne imposti la prorpietà index = 0.
e la proprietà visible = False.
Poi fai le modifiche al tuo codice :

Dim Numero_pulsante as Integer 


Private Sub pippo_Click() 

    Numero_pulsante = Numero_pulsante + 1 

    Load Pulsante(Numero_pulsante)  

    Pulsante(Numero_pulsante).Caption = "Pulsante Numero " & Numero_pulsante 

    Pulsante(Numero_pulsante).Left = ..... ' Dagli una posizione 
    Pulsante(Numero_pulsante).Top  = ..... '  

    Pulsante(Numero_pulsante).Visible = True 

End Sub

Oppure li crei dal nulla con la CreateObject(.....)
Credo però che ti convenga il primo sistema.

[Alexinfa]

Grazie infinite

[Brainjar]

Prego.