VB 提示用户定义类型未定义，代码如下。