一小问题，顶者有分
Public   Function   read()   As   String
Dim   status   As   String
Dim   temp   As   String
Dim   card   As   String
status   =   opencard()
If   status   =   0   Then   '卡具打开成功
      Dim   pRegion   As   String
      pRegion   =   Space$(2)
      pRegion   =   "XM "
      Dim   pCardno   As   String
      pCardno   =   Space$(18)
      Dim   pCardtype   As   String
      pCardtype   =   Space$(1)
      Dim   pErrmsg   As   String
      pErrmsg   =   Space$(1024)
      status   =   ykt_readcardno(pRegion,   "1111 ",   "111111 ",   pCardno,   pCardtype,   pErrmsg)
      status   =   closecard()     '否则关闭卡具
End   If
card   =   pCardno
‘在这个地方，如果print   card   ，正确无误
End   Function


'我要点击按钮，read()是应该有个返回值的。为什么没有呢，要怎样才能把上面方法的pCardno返回呢
Private   Sub   Command1_Click()
Print   read()
End   Sub

------解决方案--------------------
貌似是沙发，可惜楼主问的东西不会，
- -# 唉

额，不对啊，貌似不是JAVA吧？
楼主跑错地方勒？
------解决方案--------------------
ding
------解决方案--------------------
仔细一看还真不是JAVA
------解决方案--------------------
你这是vb倒嘛 怎么跑到这儿来了
------解决方案--------------------
java顶vb
------解决方案--------------------
晕
------解决方案--------------------
晕，你在print的地方添加一个return pCardno 就行了。

这位大哥初学vb还发错地方了。