[vb6]evento click su molti pulsanti

[chicconew]

Ho un forum con una quarantina di pulsati, e devo assegnare ad ognuno un evento click.
C'è un modo per farlo via codice senza dover fare una

Private Sub Command1_Click()
....
End Sub

per ogni comando presente nel form? Le istruzioni di ogni comando sono del tipo

MsgBox Command1.Caption

per ogni pulsante, quindi ben modificabili in un ciclo for


Altra cosa, è possibile creare oggetti (tipo TextBox, Command etc.) direttamente da codice, anche definendone tutte le proprietà?

Ciao e grazie dell'aiuto

[Grunt]

Si a tutti e 2 i punti, basta usare le matrici.
Inserisci un pulsante (Command1) sul form, nel valore index metti "0" e poi da codice basta fare

    load Command1(nPuls)
    nPuls = nPuls + 1

dove nPuls è una variabile globale e inizializzata a 1. Quando dovrai definire l'evento click vedrai che ti compare una varibile in ingresso (Index)

Private Sub Command1_Click(Index as Integer)
....
    MsgBox Command1(Index).Caption
End Sub

Stesso procedimento per i textbox e per qualsiasi altro controllo tu voglia usare.