下面的api在vb中怎么写

Question

下面的api在vb中怎么写
Function  GetBitmapPkgData(DBuf:PByteArray;
                           MaxLen:integer;
                           DestID,Pid:Byte;
                           bitmap:Hdc;
                           bw,bh:integer;
                           bType:byte;
                           Orect:TRect;
                           EnterMode,StayTime:byte):integer;stdcall;external DllFileName;

Answer 1

PByteArray可以定义为ByRef Byte，然后调用的时候传递字节数组第一个过去。
integer、hdc定义为byval Long，Byte定义为Byval Byte。

Answer 2

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Answer 3

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type