all the error constant = empty, why?

I use errorhandling:

lResult = OleLoadPicture(pStream, UBound(bArr) + 1, 0, myGUID(0), myPic)
Select Case lResult
Case E_OUTOFMEMORY
MsgBox "E_OUTOFMEMORY"
Case E_UNEXPECTED
MsgBox "E_UNEXPECTED"
Case E_POINTER
MsgBox "E_POINTER"
Case E_NOINTERFACE
MsgBox "E_NOINTERFACE"
Case NO_ERROR
Set Me.Picture = myPic
MsgBox "Sucess!!!"
End Select

but all the constant (E_OUTOFMEMORY, ect..) = empty
VB6 cant recognize the error code, why?

im beginner in VB6, plz help