DELPHI中的DLL函数声明和结构声明怎么转换到VB中?

TinitDll=function(var act:word):word;stdcall;
TFreeDll=function(var act:word):word;stdcall;
TCreateVSPByName =function(VComName:Pchar;ip:Pchar;Port:Longword):word;stdcall;
TDeleteVSPByName =function(VComName:Pchar):word; stdcall;
TGetVSPList=function(abuf:Pchar;const bufsize:word;var vspcount:word):word;stdcall;
TGetVSPInfoByName=function(const VComName:Pchar;var vspinfo:TDLLVSPInfo):word;stdcall;
TGetDeviceOjects=function(const odata: Pointer;const obufsize:integer;var devcount: integer;var res:integer):word;stdcall;
TConfigRemoteByMac=function(const AMusterCmdInfo: TMusterCmdInfo;var res:integer):word;stdcall;
TScanDevice=function(var res:integer):Word;stdcall;type
TDLLVSPInfo=packed record
SerialName:array[1..16] of Char;
VSPIsOpen:byte;
VSPSpeed:longword;
VSPStopBits:Byte;
VSPParity:Byte;
VSPDataBits:Byte;
IP:array[1..20] of Char;
Port:longword;
VSPToNet:longword;
NetToVsp:longword;
NetState:longword;
LastAct:array[1..128] of Char;
end;PMusterCmdInfo=^TMusterCmdInfo; 
TMusterCmdInfo=packed record
xid:LongWord;
msg_type:Byte;
muster_ver:Byte;
net_hostname:array[1..12] of Char;
net_mac:array[1..6] of Char;
net_ip_addr:LongWord;
net_ip_mask:LongWord;
net_gateway:LongWord;
devmodel:LongWord;
workmodel:LongWord;
portnum:LongWord;
firstport:LongWord;
firmware:array[1..24] of Char;
cfgpwd:array[1..12] of Char;
mapip:array[0..31] of LongWord;
mapport:array[0..31] of LongWord;
end;