منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Option Explicit

Private WithEvents Com1 As VB.CommandButton

Private Sub Com1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set Com1 = Controls.Add("VB.CommandButton", "Command1", Me)
Com1.Move 300, 400, 1575, 375
Com1.Caption = "Exit"
'Com1.Style = 1
Com1.BackColor = 65280
Com1.Visible = True

End Sub