[ghaner joseph]

أجل هذا هو الكود

Dim sMenu As New ContextMenu
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
("الحمد الله") a = sMenu.MenuItems.Add
("الله اكبر") sMenu.MenuItems.Item(0).MenuItems.Add
AddHandler a.Click, AddressOf asss
End Sub
() Private Sub asss
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
(( sMenu.Show(Me, PointToClient(MousePosition
End Sub

---

(06-04-16, 06:44 PM)ghaner joseph كتب : أجل هذا هو الكود

   Dim sMenu As New ContextMenu
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ("الحمد الله")   a = sMenu.MenuItems.Add
 ("الله اكبر")      sMenu.MenuItems.Item(0).MenuItems.Add
       AddHandler a.Click, AddressOf asss
   End Sub
  () Private Sub asss
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   (( sMenu.Show(Me, PointToClient(MousePosition
   End Sub
صديقي العزيز توجد طريقة سهلة للحساب مثال

Dim a, b, c b8, b9, b10, b11 As Single
     
 عمليات حسابية

        a = TextBox1Text
        b = TextBox2.Text
      d = TextBox3.Text





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = b
Label2.Text = d   
        d = b + a
        Label3.Text = d
    End Sub