希望在VB中编一个每单击一次鼠标就长高一点的矩形，求高手指教哪里出了问题。

Private Sub Command1_Click()
a = a + 1
Line (1850, 2740)-(2350, 2740 - 500 * a), vbRed, BF
End Sub
Private Sub Form_Load()
a = 0
End Sub

加一句变量声明：完整代码如下：
Private a As Long

Private Sub Command1_Click()
a = a + 1
Line (1850, 2740)-(2350, 2740 - 500 * a), vbRed, BF
End Sub

Private Sub Form_Load()
a = 0
End Sub

我的问问邮箱：[email protected]

发给你了！