有关将单击事件添加到动态添加的右键单击菜单的问题

Question

我想将单击事件添加到动态添加的右键单击菜单中。mybutton是动态添加的按钮。我的代码如下：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load

    Dim tsm As ToolStripMenuItem = New ToolStripMenuItem("change icon")
    AddHandler tsm.Click, AddressOf mybutton_changeicon

    mybutton_cms.Items.Add(tsm)
    sender.ContextMenuStrip = mybutton_cms
 End Sub


  Private Sub mybutton_changeicon(ByVal sender As Object, ByVal e As 
 System.Windows.Forms.MouseEventArgs)
      changeIcon.changeicon(sender, e)

  End Sub

 Module changeIcon

  Function changeicon(ByRef Sender As System.Object, ByVal e As 
  System.Windows.Forms.MouseEventArgs, Optional ByVal Offset As Integer = 10) 
 As Boolean
      Dim openfiledialog1 As New OpenFileDialog
      Dim imagepath As String
      If openfiledialog1.ShowDialog = DialogResult.OK Then

        imagepath = openfiledialog1.FileName
        Sender.Image = Image.FromFile(imagepath)

    End If

   End Function
End Module

当我运行它时，出现一个问题： 无法将类型为“ System.EventArgs”的对象转换为类型为“ System.Windows.Forms.MouseEventArgs”？ 我的代码有什么问题？