[vbnet]

.....

منقول

إنشاء عنصر قائمة ToolStripMenuItem برمجياً

كود :

' إنشاء عنصر قائمة جديد
Dim mnuFileNewItem As New System.Windows.Forms.ToolStripMenuItem

' تسمية العنصر الجديد
mnuFileNewItem.Name = "mnuFileNewItem"

' تغيير النص للعنصر الجديد
mnuFileNewItem.Text = "عنصر جديد"

' Click ربط العنصر الجديد بالحدث
AddHandler mnuFileNewItem.Click, AddressOf mnuFileNewItem_Click

' إضافة العنصر الجديد إلى القائمة المحددة
mnuFile.DropDownItems.Add(mnuFileNewItem)

الحدث mnuFileNewItem_Click

كود :

Private Sub mnuFileNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox("تم الضغط على (" & sender.Text & ")", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
    ' إفعل شيئاً
End Sub

.....