[alims]

السلام عليكم ورحمة الله وبركاته 
اعملت هذا الكود مع الاداء ContextMenuStrip و هو يعمل بدون اى مشكلة و لكن ارويد عند الضغط مثلا على الغرفة العامة يتم اظهر Form2 و اذا ضغط على ااعدادات يتم اForm3 وهكذا للكل item لى موجوده كيفية عمل هذا ؟؟؟!!

كود :

 Dim item, item1, item2, item3, item4, item5, item6 As New ToolStripMenuItem


  Sub menufor()
                   item.Text = ""
            item1.Text = ""
            item2.Text = ""
            item3.Text = ""
            item4.Text = ""
            item5.Text = ""
            item6.Text = ""
            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