VB提示用户定义类型没有定义

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim a1 As Integer
a1 = GetSetting("图书管理V1.0", "系统设置", "Bcheck", "Anonymous") '得到系统设置信息
Select Case Button.Index
Case 1
If a1 = 1 Then
PopupMenu Me.borrow, vbPopupMenuLeftAlign, Button.Left + 150, Button.Top + Button.Height + 150 '弹出选择菜单
Else
normal_Click
End If
Case 2
nor_Click
Case 3
If a1 = 1 Then
PopupMenu Me.search, vbPopupMenuLeftAlign, Button.Left + 150, Button.Top + Button.Height + 150 '弹出选择菜单
End If
Case 4
S_admin.Show
Case 5
sbook.Show
Case 6
Sets.Show
Case 8
CommonDialog1.Action = 2
Case 9
CommonDialog2.Action = 1
End Select
End Sub

VB提示用户定义类型没有定义 VB用户定义类型未定义 vb用户定义类型未定义? VB中子程序,函数,用户定义类型在哪儿定义? 我在vb中使用WSAStartup时，显示用户定义的类型没有定义，这是什么回事？ 用户定义类型未定义 vb里定义类型? 请问下面我（用户）定义的类型怎么定义呢？不然运行的话，会提示“用户定义类型未定义”！ 急：VB编程时出现“用户定义类型未定义” VB编程时出现“用户定义类型未定义”