سلام دوست عزیزم

کاری که تو میخوای این تکه برنامه انجام میده


Private Const MuchOfMove = 660

Private Sub Command_Click(Index As Integer)
i = Index + 1
Text_Move = i * MuchOfMove
Load Command(i)
Command(i).Visible = True
Command(i).Top = Command(i).Top + Text_Move
Command(i).SetFocus

End Sub


فکر نمی کنم توضیح اضافه ای خواسته باشه با این حال اگه سوالی بود بپرس

موفق باشی