اضافه کردن آبجکت هنگام اجرای برنامه

[far_222000]

من تو ایران ویج این برنامه رو دیدم و دانلودش کردم ولی الان توش 1 مشکلی دارم:
من با این دستور 2 تا آبجکت می سازم:

کد:

Public ctlName As Control

Private Sub Command1_Click()

Set ctlName = Me.Controls.Add("VB.CommandButton", "cmdOne")
ctlName.Visible = True
ctlName.Caption = "First Cmd"
ctlName.Left = 1000

Set ctlName = Me.Controls.Add("VB.CommandButton", "cmdtwo")
ctlName.Visible = True
ctlName.Caption = "Second Cmd"
ctlName.Top = 500
End Sub

Private Sub Command2_Click()
ctlName.Left = 300
End Sub

الان اگه روی Command2 کلیک کنم، Left آخرین آبجکتی که اضافه شده رو می کنه 300.
ولی اگه من بخوام بعد از اضافه کردن 10 تا آبجکت، تغییری روی اولین آبجکت بکنم چی؟
زمانی که داشتم این سوال رو از امیرحسین توی چت می پرسیدم بهم گفتش که خب از چند تا متغییر استفاده کن. ولی مشکل اینه که معلوم نیست ما چند تا آبجکت می خوایم داشته باشیم: مثلاً 1 کلید داریم که کاربر هر چند باری که روش کلیک کنه 1 آبجکت اضافه می شه و بعداً اگه کاربر بخواد روی 5مین آبجکتی که اضافه کرده 1 تغییری ایجاد کنه باید چی کار کنه؟

[Darg]

این برنامه رو الان نوشتم.
یه روش زیر آبیه
اما بدیش اینه که مدیریت رویداد نداره !