VB如何繪制鼠標拖動軌跡

Dim?xx?As?Double,?yy?As?Double

Private?Sub?Form_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

If?xx?=?0?And?yy?=?0?Then

xx?=?X:?yy?=?Y

Else

Form1.Line?(xx,?yy)-(X,?Y),?1

End?If

xx?=?X:?yy?=?Y

End?Sub

我調試成功的例子。