Private Sub Command1_Click()
Type dian '就是这儿出错,怎么回事
x As Integer
y As Integer
End Type
Dim mypoint As dian
mypoint.x = 0
mypoint.y = 0
Call SendMessage(210346, WM_LBUTTONDOWN, MK_LBUTTON, point)
End Sub

LZ这个程序想实现什么功能?

我想自动点一下按扭呀
我给我妈刷QQ分,我自动点认输..

新添加个模块,把这段代码移动到模块里,记住还要加public

Public Type dian
x As Integer
y As Integer
End Type

加到声明里也可以,但是要加private

Private Type dian
x As Integer
y As Integer
End Type

谢谢