Dim is_in
is_in=0
Do While is_in<>1
	status=RDR.IsCardIn(is_in)
	CheckStatus status,"IsCardIn"
Loop

##</code><code>##

       [id(0x0000000b), helpstring("method IsCardIn")]
        HRESULT IsCardIn(
                        [out] VARIANT* is_in, 
                        [out, retval] VARIANT* status);