ContextMenuStrip1.Items.Clear()
        If ContextMenuStrip1.SourceControl Is TextBox1 Then
            ContextMenuStrip1.Items.Add("clear", New System.EventHandler(AddressOf Me.clear_onclick))
        End If
        If ContextMenuStrip1.SourceControl Is TextBox2 Then
            ContextMenuStrip1.Items.Add("copy")
            ContextMenuStrip1.Items.Add("paste")
        End If
在第三行的代码中， Me.clear_onclick报因不是FORM1的成员该如何处理，如何能够引出向 clear_onclick  添加代码

如何给每一个菜单项配上一个CLICK事件

Dim MI As ToolStripItem = ContextMenuStrip1.Items.Add("添加")
            AddHandler MI.Click, AddressOf clearmenuitem_click