delphi 转换成vb

Question

Procedure  UploadData(
isess:longint; //上传线程指针，
        isbuy:boolean; //数据类型
        medicament:PChar;//名称
        producer:PChar; //商家
        typex:PChar; //类型
        spec:PChar; //规格
        unitx:PChar; //单位
        quantity:integer; //数量
        batchno:PChar; //序列号
        validitydate:PChar; //有效期
        approve:PChar;
        date:PChar; //日期，日期格式为yyyy-mm-dd，比如2009-10-03
         buyerorseller:PChar//供货商；
    );stdcall;external 'daupl.dll';
请各位将这段代码转换成vb

Answer 1

Public Declare Sub UploadData Lib "'daupl.dll" (ByVal isess As Long, ByVal isbuy As Boolean, ByVal medicament As String, ... ByVal quantity As Long, ...)