Private Sub Command1_Click(Index As Integer)
Static ComIn As Integer If Index = 0 Then ComIn = ComIn + 1 Load Command1(ComIn) Command1(ComIn).Caption = "End" Command1(ComIn).Visible = True Command1(ComIn).Move Command1(ComIn - 1).Left, _ Command1(ComIn - 1).Top + 30 Else For i = 1 To ComIn Unload Command1(i) Next i End End If End Sub Inserire una matrice di controlli (command1(0)) nel form |