dll 说明：

1.    读卡器初始化函数
BOOL WINAPI InitReader();
返回值:
TRUE表示读取成功，FALSE表示读取失败

我觉得调用应该没问题，在没卡的情况下首先有一个读卡失败的提示，最后显示我已赋值为“True”的变量a在调用后置成“False”，代码如下：
Private Declare Function InitReader Lib "CDCCard.dll" () As Boolean

Private Sub Command1_Click()
  Dim a As Boolean
  a = True
  a = InitReader()
  MsgBox a
End Sub

我是这么试的，不过执行的时候会有这个提示：Only comment may appear after End Sub, End Function, or End Property

重新又试了一下，可行了。