[Anas Mahmoud]

كده
حط السطر عادي وسط الكود

كود :

Module menu
  Dim item, item1, item2, item3, item4, item5, item6 As New ToolStripMenuItem
  Sub menufor()
      If My.Settings.LangName.ToString = "العربية".ToString Then
          item.Text = ""
          item1.Text = ""
          item2.Text = ""
          item3.Text = ""
          item4.Text = ""
          item5.Text = ""
          item6.Text = ""
          item.Name = "11"
          item.Text = "الغرفة العامة"
          item1.Text = "البحث عن صديق"
          item2.Text = "الاعدادات"
          item3.Text = "المساعدة"
          item6.Text = "تصغير البرنامج"
          item4.Text = "الخروج من الحساب"
          item5.Text = "اغلاقة البرنامج"

    AddHandler item.Click, Sub(s, ee) Form2.Show()
    AddHandler item1.Click, Sub(s, ee) Form3.Show()
    AddHandler item2.Click, Sub(s, ee) Form4.Show()
    AddHandler item3.Click, Sub(s, ee) Form5.Show()
    AddHandler item4.Click, Sub(s, ee) Form6.Show()
    AddHandler item5.Click, Sub(s, ee) Form7.Show()
    AddHandler item6.Click, Sub(s, ee) Form8.Show()

          item.Image = My.Resources.public_room
          item.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(item)
          item1.Image = My.Resources.Find_a_friend
          item1.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(item1)
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item2)
          item2.Image = My.Resources.settings
          item2.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item3)
          item3.Image = My.Resources.Help
          item3.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item6)
          item6.Image = My.Resources.Minimize
          item6.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          Form1.ContextMenuStrip1.Items.Add(item4)
          item4.Image = My.Resources.Sign_out
          item4.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(New ToolStripSeparator)
          item5.Image = My.Resources.close_the_program
          item5.ImageScaling = ToolStripItemImageScaling.SizeToFit
          Form1.ContextMenuStrip1.Items.Add(item5)
          Form1.ContextMenuStrip = Form1.ContextMenuStrip1
          Form1.ContextMenuStrip1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
End Sub
End Module