下面的api在vb中怎么写

下面的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; --------------------编程问答-------------------- PByteArray可以定义为ByRef Byte，然后调用的时候传递字节数组第一个过去。
integer、hdc定义为byval Long，Byte定义为Byval Byte。 --------------------编程问答-------------------- TRect呢 --------------------编程问答-------------------- Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type --------------------编程问答-------------------- Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

补充：VB ,  API