التعامل مع القوائم

مرحبا اخي الكريم

ممكن ترفق البرنامج مع التوضيح اكثر

السلام عليكــم ورحمـة الله وبركاتــه ،،

Public Class Form1

	Private Sub LoopOnMenu(ByVal item As ToolStripMenuItem)
		For Each subItem As Object In item.DropDownItems
			If Not TypeOf subItem Is ToolStripSeparator Then
				LoopOnMenu(subItem)
			End If
		Next

		'Do something here...
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		For Each item As ToolStripMenuItem In Me.MenuStrip1.Items
			LoopOnMenu(item)
		Next
	End Sub
End Class

الف شكر بجد اثلجت قلبي بردك المميز ولك جزيل الشكر