[الطالب]

سلام

المره القادمه لاتضع الكود على شكل صوره لتوفر علينا الوقت

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim mycon As New ContextMenuStrip
    Dim arr(2) As ToolStripMenuItem

    arr(0) = New ToolStripMenuItem("لص&ق")
    AddHandler arr(0).Click, AddressOf mnuPaste

    arr(1) = New ToolStripMenuItem("ن&سخ")
    AddHandler arr(1).Click, AddressOf mnuCopy

    arr(2) = New ToolStripMenuItem("ق&ص")
    AddHandler arr(2).Click, AddressOf mnuCut

    mycon.Items.AddRange(arr)
    TextBox1.ContextMenuStrip = mycon

End Sub


Private Sub mnuPaste()
    MsgBox("لصق")
End Sub


Private Sub mnuCopy()
    MsgBox("نسخ")
End Sub


Private Sub mnuCut()
    MsgBox("قص")
End Sub

موفقين