'代码中的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

貌似这里是C语言板块 不是 VB板块。。。。

何必语言岐视，但我问的是api,不是vb.

问题不是歧视语言   而是 不会。。。。。

那我误会兄台了，请多多包容,在此道歉！

ResType And &HFFFF0000  
没见过单独&一个数佳值的， H应该是 16进制的标识符

在c中应该是 ResType & 0XFFFF0000的形式，

If (ResType And &HFFFF0000) = 0
这个表达式的意思就是： ResType 的第3，4两个字节是否有位为 1