Public Sub checkCard()
           Dim SendRequest As SCARD_IO_REQUEST
           Dim RecvRequest As SCARD_IO_REQUEST
           Dim sTemp As String
           Dim icount As Integer

           SendRequest.dwProtocol = SCARD_PROTOCOL_T0
           SendRequest.cbPciLength = Len(SendRequest)
           RecvRequest.dwProtocol = SCARD_PROTOCOL_T0
           RecvRequest.cbPciLength = Len(RecvRequest)
           TxBuf = New Byte() {&H0, &HA4, &H4, &H0, &HA, &HA0, &H0, &H0, &H0, &H74, &H4A, &H50, &H4E, &H0, &H10}
           RxBufLen = 256

           ReturnCode = winSCard.SCardTransmit(hCard, SendRequest, TxBuf(0), 15, RecvRequest, RxBuf(0), RxBufLen)
           appendlog()
           filewriter.WriteLine("Return Code : " + ReturnCode)
           sTemp = ""
           For icount = 0 To 14
               sTemp = sTemp + Format(Hex(TxBuf(icount)), "") + " "
           Next icount
           filewriter.WriteLine("Send Buffer : " + sTemp)
           sTemp = ""
           For icount = 0 To RxBufLen - 1
               sTemp = sTemp + Format(Hex(RxBuf(icount)), "") + " "
           Next icount
           filewriter.WriteLine("Receive Buffer : " + sTemp)
           closeLog()
End Sub

   Declare Function SCardTransmit Lib "winscard.dll" _
      (ByVal hCard As Int32, ByRef pioSendPci As SCARD_IO_REQUEST, _
      ByVal pbSendBuffer As Byte(), ByVal cbSendLength As Int32, _
      ByRef pioRecvPci As SCARD_IO_REQUEST, ByVal pbRecvBuffer As Byte(), _
      ByRef pcbRecvLength As Int32) As Int32