add command button in run time

salam alekom

to add a procedure in the run time

1- set the index of the command button =0

2-Private Sub Command1_Click(Index As Integer)

Load Command1(1)

Command1(1).Move 0, 0

Command1(1).Visible = True

End Sub

thanks

mohamed