正在做ERP系统控制LED显示屏的内容，ERP由PB编写，需要用LED厂家提供的接口函数进行内容控制。
需要调用厂家提供的VB编写的DEMO：
函数原型如下：//通过本函数来定义显示内容
Declare Function AddText Lib "LEDSender.dll" (ByVal str As String, ARect As rect, ByVal method As Long, ByVal speed As Long, ByVal Transparent As Long, ByVal FontName As String, ByVal FontSize As Long, ByVal FontColor As Long, Optional ByVal FontStyle As Long = 0) As Long
函数说明：
VB中调用方法如下：
SetRect ARect, 0, 0, 200, 16
AddText Text1.Text, ARect, 1, 1, 1, "宋体", 12, RGB(255, 0, 0) '发送一行文字
参数说明如下：------------
//Text1.Text 要显示的内容
//ARect定义显示内容在屏幕上的区域
//显示方式：1为立即显示
//显示速度：1，慢
//是否透明：1，透明
//字体：宋体
//字体大小：12
//字体颜色：RGB(255, 0, 0)
我已经转换成的PB函数
public function LONG AddText( string str,ARect rect,Long method,Long speed,Long transparent, String fontname,Long fontsize,Long fontcolor) LIBRARY "LEDSender.dll"
PB中调用：
isarect.left=0
isarect.top=0
isarect.right=200
isarect.bottom=16
i=AddText(str,isarect,1,1,1,'宋体',24,RGB(255,0,0))
----------------------------
问题：在VB编写的DEMO中，首先调用函数SetRect，进行区域设置，然后再调用AddText（）定义显示内容。 SetRect的调用方法：SetRect ARect, 0, 0, 200, 16//定义显示屏显示区域，分别表示，左、上、右、下坐标。
----------------------------------------
由于在PB中没有SetRect ，所以我在PB中建立结构体，然后给参数赋值；但是始终不能达到定义坐标的要求。
------------------------------------------------
求各路大虾帮忙解答解答如何在PB中来定义坐标~谢谢！！
------解决方案--------------------
一、赋值的效果应该是一样的;
二、setrect是windows提供的api,声明如下:
FUNCTION ulong SetRect(ref RECT lpRect,ulong X1,ulong Y1,ulong X2,ulong Y2) LIBRARY "user32.dll"
RECT的定义为:
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type