کپی اشیا

[ajlajlajl]

چطوری میشه یک شییء که روی فرم هست رو " در هنگام اجرا " به تعداد دلخواه کپی کرد.
لطفا اگر دو سه خطه همینجا یه مثال بزنید.

[Pedram_HookEx]

کد:

Private Sub Form_Load()
Dim P As CommandButton
Set P = Form1.Controls.Add("VB.CommandButton", "Cmd1")
P.Caption = "New Button"
P.Visible = True
End Sub

البته این برای CommandButton هست اگه خواستی تغییرش بدی

متغیرتو باید با یک شیئ دیگه تعریف کنی مثل TextBox

اما اگه بخوای مثلا از یک CommandButton  کپی بگیری که موقع کلیک کردن روی دکمه کپی شده همون عملیاتی اجرا بشه که روی دکمه قبلی اجرا میشد
این مثالو برات نوشتم که فک کنم جوابت همینه