主题：关于自定义函数 实现COMBOBOX下拉列表的问题

我自己写了自定义函数如下

自定义函数

Dim Dp_form As String '窗口参数

Dim Dp_combobox As String '下拉列表参数

Dim Dp_val As String '下拉类别

Dim cmb As WinForm.ComboBox

cmb = Forms(Dp_form).Controls(Dp_combobox)

Dim dt=DataTables("tbl_词组").GetComboListString("名称", "词组类型 = '" & Dp_val & "'")

cmb.ComboList = dt

然后在 相关的COMBOBOX控件上的 MOUSE ENTER事件上写了以下调用代码

Functions.Execute("Droplist1","商品单","Combobox9","产品分类")

结果显示失败 

显示找不到名称为“”的控件

.NET Framework 版本：2.0.50727.8745

Foxtable 版本：2018.7.28.1

错误所在事件：自定义函数Droplist1

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

请问狐爸 是哪里出错了？