求VB高手解决一个问题，200分悬赏！

编译时出现"变量未定义"，这说明你在工程中使用了Option Explicit语句，而且工程中使用了未声明的变量。VB中的变量是可以不预先显示声明的，除非你在模块中使用了Option Explicit语句。综上所述，这个问题有两种解决方法：
一、在调试运行时跟踪到未定义的变量，然后将其定义一下即可。
二、如果模块中使用了 Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时间会出现错误。如果你把工程中所有的Option Explicit语句都删除，同样可以解决问题。
提示：在使用一个变量之前并不必先声明这个变量，这就是隐式声明，隐式声明虽然方便，但在检查程序错误时会很麻烦。举例说明如下：
下面是一个正确使用隐式声明变量的函数
Function SafeSqr (num)
TempVal = Abs (num)
SafeSqr = Sqr (TempVal)
End Function
下面是一个错误的函数
Function SafeSqr (num)
TempVal = Abs (num)
SafeSqr = Sqr (TemVal)
End Function
乍看起来，这两段代码好象是一样的。但是因为在倒数第二行把 TempVal 变量名写错了，写成了TemVal(少一个字母p)，所以函数总是返回 0。当 Visual Basic 遇到新名字，它分辨不出这是意味着隐式声明了一个新变量呢，还是仅仅把一个现有变量名写错了，于是只好用这个名字再创建一个新变量。

你自己都说出答案了~~
变量未定义！在提示窗口双击出错的地方，找到未定义的变量，然后在文件头定义为全局变量不就行了~

同意一楼的看法，看哪里错误，哪个变量未定义，你就定义一下不就得了！！

你在VB里运行用全编译运行，就可以知道哪个变量没定义了，如果知道了哪个变量没定义还不知道怎样定义的话，，，，无语

QQ:474483925

把源代码贴上来