[عبدالله الصافي]

هذا مثال علي انشاء اداة زر اثناء التشغيل
قم بالتعديل عليه كما يناسب مشروعك

كود :

Dim WithEvents Cmd1 As CommandButton
'
Private Sub Form_Load()
 Set Cmd1 = Controls.Add("vb.commandbutton", "Cmd1")
 Cmd1.Width = 2000
 Cmd1.Top = Me.Height / 2 - Cmd1.Height / 2 - 100
 Cmd1.Left = Me.Width / 2 - Cmd1.Width / 2 - 100
 Cmd1.Caption = "Dynamic Button"
 Cmd1.Visible = True
End Sub