求助，这一段获取局域网内所有ip地址代码哪里有错误？

我按照这个里面http://book.51cto.com/art/200806/78505.htm创建控件后，复制代码进去，运行
总是显示用户定义类型未定义。
Private Sub Form_Load()
On Error Resume Next
Const MAX_RESOURCES = 256
Const NOT_A_CONTAINER = -1
Dim bFirstTime As Boolean
Dim lReturn As Long
Dim hEnum As Long
Dim lCount As Long
Dim lMin As Long
Dim lLength As Long
Dim l As Long
Dim lBufferSize As Long
Dim lLastIndex As Long
Dim uNetApi(0 To MAX_RESOURCES) As Netresource_BUf
Dim uNet() As Netresource
bFirstTime = True
Do
If bFirstTime Then
lReturn = WNetOpenEnum(resource_globalnet, resourcetype_any, resourceusage_all, ByVal 0&, hEnum)
bFirstTime = False
Else
If uNet(lLastIndex).dwUsage And resourceusage_container Then
lReturn = WNetOpenEnum(resource_globalnet, resourcetype_any, resourceusage_all, uNet(lLastIndex), hEnum)
Else
lReturn = NOT_A_CONTAINER
hEnum = 0
End If
lLastIndex = lLastIndex + 1
End If
    If lReturn = no_error Then
lCount = resource_enum_all
Do
lBufferSize = UBound(uNetApi) * Len(uNetApi(0)) / 2
lReturn = WNetEnumResource(hEnum, lCount, uNetApi(0), lBufferSize)
If lCount > 0 Then
ReDim Preserve uNet(0 To lMin + lCount - 1) As Netresource
For l = 0 To lCount - 1
uNet(lMin + l).dwScope = uNetApi(l).dwScope
uNet(lMin + l).dwType = uNetApi(l).dwType
uNet(lMin + l).dwdisplaytype = uNetApi(l).dwdisplaytype
uNet(lMin + l).dwUsage = uNetApi(l).dwUsage
If uNetApi(l).plocalname Then
lLength = lstrlen(uNetApi(l).plocalname)
uNet(lMin + l).slocalname = Space$(lLength)
copymem ByVal uNet(lMin + l).slocalname, ByVal uNetApi(l).plocalname, lLength
End If
                    If uNetApi(l).premotename Then
lLength = lstrlen(uNetApi(l).premotename)
uNet(lMin + l).sremotename = Space$(lLength)
copymem ByVal uNet(lMin + l).sremotename, ByVal uNetApi(l).premotename, lLength
End If
               Next l
End If
lMin = lMin + lCount
Loop While lReturn = ERROR_MORE_DATA
End If
If hEnum Then l = WNetCloseEnum(hEnum)
Loop While lLastIndex < lMin
If UBound(uNet) > 0 Then
For l = 0 To UBound(uNet)
If uNet(l).dwdisplaytype = resourcedisplaytype_server Then List1.AddItem uNet(l).sremotename
Next l
End If
End Sub