自定义函数调用

[guo1wu3shi4]

我在define.bas定义函数
Public Function test()
MsgBox ("dddd")
test = True
End Function

然后在MDI子窗口中调用
Private Sub Form_activate()
a = test()
End Sub

出现错误：编译错误， 找不到工程或库