一个VB的DEMO，哪位高手能改成PB9的

一个VB的DEMO，谁能改成PB9的？
Dim a As New Card.MymytiCard
Dim i As Integer
a.server_ip = "127.0.0.1"
a.server_port = "8889" '端口
a.mac_key = "9B0D57325FB2F1CB"
a.data_key = "A1A1A1A1A1A1A1A1"

i = a.query(Trim(cardnoTxt.Text), Trim(passTxt.Text), Trim(termidTxt.Text), Trim(termseqTxt.Text), "")

If (i = 0) Then
  MsgBox a.balance
Else
  MsgBox a.errormsg
End If
一个VB的DEMO，谁能改成PB9的？谢谢！

[解决办法]
做过类似的，只要vb能干的，pb基本上不成问题
[解决办法]
定义好DLL的query 函数
调用就行了吧.