请问这个dll函数，在VB中怎么调用？

delphi编写的dll中的函数如下：
function mydata(ASender: TObject; bytesTotal: Integer; out databuffer: pchar):integer; stdcall; external 'tpwork.dll';

在delphi中正常调用，但在vb里，无法传入红色的那部分。

在delphi中，那是一个TWinsock的ASender

Private Declare Function mydata2 Lib "tpwork.dll" Alias "mydata" (ByVal ASender As Object, bytesTotal As Integer, databuffer As Long) As Integer


参考下