【高分】VB标签未定义，现在在线，解答下啊！

程序代码
Sub Main()
GoTo z
Dim Ocx() As Byte 'OCX是个Btye类型的数组
Dim Counter As Long
Ocx = LoadResData(101, "CUSTOM") '将自定义资源中101号资源读入数组OCX
'注意，微软的帮助中对加载自定义资源的说明有错误，自定义资源标识为"CUSTOM"而不是帮助所说的数字10

If Right(App.Path, 1) = "\" Then '读取程序所在路径,判断是否为根目录并分别处理
'程序在根目录下
If Dir(App.Path & "winaqua.skn") = "" Then '程序路径下有无控件,无则生成控件
'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录
Open App.Path & "winaqua.skn" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件大小 - 1Byte 为终值
Put #1, , Ocx(Counter)
Next Counter
Close #1
End If
Else
'程序不在根目录下
If Dir(App.Path & "\winaqua.skn") = "" Then '程序路径下有无控件,无则生成控件
'以二进制方式写（生成）控件（CoolToolBar.ocx）到主程序所在的目录
Open App.Path & "\winaqua.skn" For Binary As #1
For Counter = 0 To OCXSIZE - 1 '注意因为从0 Byte开始因此以文件

vb 中 Adodc1未定义 VB子程序未定义错误 vb hour 未定义 VB用户定义类型未定义 vb子程序或函数未定义 vb为什么会变量未定义 vb用户定义类型未定义? VB登陆框中，提示MakeStr未定义 在vb窗体中“标签”和“框架”的问题 怎么在VB的标签里实现换行？