الكود التالي يستطيع إنشاء بعض الأ دوات على النافذة دون استخدام صندوق الأدوات لكن إن كانت الأداة ليست من ضمن الصندوق أي مضافة إليه لا يستطيع إنشاءها فهل من أحد يعطين الكود الذي يستطيع إنشاء الأدوات على النافذة إذا كانت الأدوات ليست من أدوات صندوق الأدوات أكون شاكراً
[Private WithEvents btnObj As CommandButton
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Click"
.Top = 1000
.Left = 1000
End With
End Sub
أخوكم / محمد...