[alims]

شكر ليك ممكن سؤال تانى
انا استخدام الكود فى Module menu
كيفية استخدام هذا الكود فى الفروم العادية
AddHandler item1.Click, Sub(s, ee) Form2.Show()

كود :

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 = "اغلاقة البرنامج"
           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