26-02-14, 04:22 PM
وعليكم السلام ورحمة الله وبركاته
هذا كود انشاء زر جديد وتنفيد امر من خلاله
بالتوفيق
هذا كود انشاء زر جديد وتنفيد امر من خلاله
كود :
Option Explicit
Private WithEvents cmd As CommandButton
Private Sub Command1_Click()
Set cmd = Form1.Controls.Add("VB.CommandButton", "cmdOne")
cmd.Visible = True
cmd.Caption = "New Command"
End Sub
Private Sub cmd_Click()
MsgBox "New Command"
End Subبالتوفيق
