VB 中怎么调用 Delphi 生成的动态连接库DT.Dll——————在线等待！！！！

Question

大家好！！！？？？
      在 VB 中怎么调用 Delphi 生成的动态连接库DT.Dll ，此DT.Dll 动态连接库中有提供了三个函数如下：
        function closeport(hserialport : thandle):boolean;stdcall;
        function openport(str:string):thandle0;stdcall;
        function readdata:pchar;stdcall ;请问：在VB 中怎么去调用动态连接库中的这三个函数？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？////

Answer 1

Private Declare Function closeport Lib "DT.dll" (ByVal hserialport As Long) As Boolean
Private Declare Function openport Lib "DT.dll" (ByVal str As String) As Long
Private Declare readdata RLib "DT.dll" () As Stringprivate sub Command1_click()
   Msgbox readdata
end sub

Answer 2

上面的例子，需要你把DT.dll放到system(32)目录下
然后新建工程，在其上放一个按钮
在窗体的代码窗口，粘贴如上代码
F5调试运行，单击按钮，如果不出错，应该能显示readdata的返回值

Answer 3

大家好！！
     我没用过VB ，我对Delphi 是相当熟悉已经用了3年了
     现在迫于需要正在学VB ，请给一个完整一点的VB 中调用 Delphi 编写的动态连接库的问题好吗？？？？？？？？？？？？？？？？？？/拜托拜托？！·！！！！！！！！！！！！！！1