在类模块自制右键菜单出错。

Question

类模块的
         Private WithEvents mytxt As TextBox
         Private WithEvents mymenu As Menu         Public Sub Attach1(itTEXT As Menu, myvg1 As TextBox)        '接受外部变量到mytxt中         Set mymenu = itTEXT
         Set mytxt = myvg1
         End Sub         Private Sub mytxt_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
         If Button = 2 Then
         mymenu.b , 0, X, Y         End If
         End SubFORM的 自制了一个菜单，隐藏了      Private Sub Form_Load()     
      myCLS.Attach1 PopupMenu, Text1
       '启动类    End Sub结果显示参数 不可以选。请前辈高人指点下 谢谢

Answer 1

补充一下，我在模块里有
 Public myCLS As New Class1不是没声明的问题。