Question

VB怎么随鼠标画线

就是随着鼠标移动画线
我是要说的是，鼠标移到哪里我线画到哪里要在FORM上画

Answer 1

直接在Form的鼠标移动事件上加Me.Line(X1, Y1)-(X2, Y2),RGB(0,128,192):

Dim xx As Long, yy As Long

Private Sub Form_Load()
Me.AutoRedraw = True
Me.DrawMode = 13
Me.DrawStyle = 6
Me.DrawWidth = 2
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If xx = 0 And yy = 0 Then GoTo neednext
Me.Line (xx, yy)-(X, Y), RGB(0, 128, 192)
neednext:
xx = X
yy = Y
End Sub

Answer 2

private sub picture1_mousedown (button as integer'shift as integer,x as single,y as single)
picture1.currentx=x
picture1.currenty=y
end sub
没注意大小写，再界面上设置一个图片框，然后编写以上代码就可以了