Crea a Run Time i controlli su Form

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