求助DELPHI转VB.NET

Question

本人初学VB。DELPHI不懂，有下面这么一段DELPHI需要转换成VB.NET

 

type

  ZipOption_t = record

    FileType:pchar;         //文件格式

    pwd:pchar;              //访问口令

    Version : pchar;        //版本

    Memos : PChar;          //备注

    Reserved : PChar;       //保留的文本区

    src:PChar;              //源文件

    dst:pchar;              //目标文件

    IncludeSubDir:Boolean;  //目录压缩时是否压缩子目录

  end;

 

  ZipOption_p = ^ZipOption_t;

  UnZipOption_t = ZipOption_t;

  UnZipOption_p = ZipOption_p;

 

  StepFunc_t = record

    BeginStep : procedure  (Msg:pchar; Count:integer);  stdcall;

    Step : procedure  (msg:pchar;Position:integer);stdcall;

    EndStep: procedure();

   end;

   StepFunc_p = ^StepFunc_t;

 

function ZipFile(ZipOption: ZipOption_p; StepFunc: StepFunc_p): Boolean;external'dszip.dll';

 

function UnzipFile(UnZipOption: UnZipOption_p; StepFunc: StepFunc_p): Boolean; external'dszip.dll';