用HidD_GetAttributes为什么不能得到鼠标的PID和VID？？

应用程序如下：
Result = HidD_GetAttributes _
            (HidDevice, _
            DeviceAttributes)
Dim VID As String
Dim PID As String
VID = Hex$(DeviceAttributes.VendorID)
PID = Hex$(DeviceAttributes.ProductID)
    为什么鼠标的VID AND PID 都是0呢？   用此应用程序却能得到别的HID设备的VID AND PID