求大大帮忙关于封装API

Question

我想把一些常用的API声明装到类里。设置成类的属性，这样就可以方便以后的调用了。。
自己试了很多方法，不是这出错就是那里出错。请哪位大大给个例子成吗？
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
就拿这个鼠标移动做例吧。。把SetCursorPos设成类的属性MoveTo
先谢谢了。

Answer 1

使用IDL封装API，然后编译成TLB在VB里调用。

Answer 2

谢谢大家。。熬了个通宵后，终于完成了
封装键鼠很简单。好多朋友也想知道答案吧。。我给个例子在这里供大家参考。
Option Explicit
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Sub LeftClick()  '鼠标左单击
    On Error Resume Next
    Call mouse_event(&H2, 0, 0, 0, 0)
    Call Sleep(60)
    Call mouse_event(&H4, 0, 0, 0, 0)
End Sub
就这么简单，然后引用类就可以直接使用了。