程序代码：

'代码中的If (ResType And &HFFFF0000) = 0 Then 'ResType And &HFFFF0000这个代表什么意思？
'ResTypesCallBack为EnumResourceTypes回调函数
Function ResTypesCallBack(ByVal hMod As Long, ByVal ResType As Long, ByVal lParam As Long) As Long
    Dim nd As Node
    If (ResType And &HFFFF0000) = 0 Then  'ResType And &HFFFF0000这个代表什么意思？
        Set nd = tv.Nodes.Add(tv.Nodes.Item(1), tvwChild, "#" & CStr(ResType), ResTypeName(ResType), 2, 3)
        tv.Nodes.Add nd, tvwChild, , "Dummy"
    Else    ' The resource type is defined by a string
        Set nd = tv.Nodes.Add(tv.Nodes.Item(1), tvwChild, , StrFromPtrA(ResType), 2, 3)
        tv.Nodes.Add nd, tvwChild, , "Dummy"
    End If
    Set nd = Nothing
    ResTypesCallBack = True
End Function