Private Sub MenuProiz()
	Dim pr As PrZap.PrZap
	Dim iCount As Integer

	Try
		pr = New PrZap.PrZap(BuildCn)
		iCount = pr.MCount
		If iCount > - 1  Then
			Dim i As Integer
			For i =  0  To iCount -  1 
			'Me.MenuItem2.MenuItems.Add(pr.ArMenu(i))’ вот здесь создаются менюшеки их сейчас 7 , а будет еще больше.
				AddHandler Me.MenuItem2.MenuItems.Add(pr.ArMenu(i)).Click, AddressOf ClickMenu
			Next
		End If
	Catch ex As Exception
		MsgBox(ex.Message)
		Finally
		pr = Nothing
	End Try
End Sub

Private Sub ClickMenu(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
	'Обработка клика меню.
	'Чтобы понять на какое именно меню кликнули
	'сделайте MessageBox.Show(CType(sender, Windows.Forms.MenuItem).Text)
	'этот же метод можно использовать и для обработки события Click меню, созданных вручную, указав Handles MenuItem4.Click, MenuItem5.Click, MenuItem6.Click...
End Sub

 uid  =  S a

public class MyMenuItem:MenuItem
{

		int IntTag;

		public MyMenuItem()
		{
		
		
		}


		public int Tag // свойство
		{
			get
			{
                              return  IntTag;
			}
		
			set
			{
             
            if (value>=0)
			IntTag=value;
	
			}
		}


}

public MyMenuItem(string s,System.EventHandler OnClick) : base(s,OnClick)
		{
		
		this.Text=s;
			
		}

public class MyMenuItem:MenuItem
{

		int IntTag;

		public MyMenuItem(string s) : base(s)
		{
		
		this.Text=s;
			
			
		}


		public int Tag // свойство
		{
			get
			{
            return  IntTag;
			}
		
			set
			{
             
            if (value>=0)
			IntTag=value;
	
			}
		}


}

MyMenuItem m=new MyMenuItem("Хоб");
			m.Tag=2000; 
            m.Click+=new System.EventHandler(this.Hand); 
 
 

        mainMenu1.MenuItems.Add(m); 

private void Hand(object sender, System.EventArgs e) 
		{


System.Windows.Forms.MessageBox.Show(((MyMenuItem)sender).Index .ToString() );

		}