          lSize - 1) As Byte
                                 CopyMemory m_tBits(iEntry).bBits(0), ByVal
                                  lPtr, lSize
                              End If
                           Else
                              bFail = True
                           End If
                        End If
                     End If
                  Next iEntry

                  ' Did we succeed?
                  If (bFail) Then
                     Err.Raise vbObjectError + 1048 + 9