General. Dim AnchorX As Integer 'Начальная точка

Dim AnchorX As Integer 'Начальная точка

Dim AnchorY As Integer 'Начальная точка

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

AnchorX = X

AnchorY = Y

End Sub

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

Me.Line (AnchorX, AnchorY)-(X, Y)

End Sub

При нажатии кнопки мыши на форме в переменных AnchorX и AnchorY будут сохранены коодинаты точки нажатия.

При отпускании кнопки в другом месте формы будет нарисована линия от начальной точки до конечной.

Запустите программу и проделайте это.

5. Теперь, чтобы рисуемую линию можно было видеть в процессе рисования, надо добавить и обработать процедуру MouseMove:

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

Me.Line (AnchorX, AnchorY)-(X, Y)

End Sub

Запустите программу.

Теперь, как только Вы попали мышью на форму - начинается рисование веера линий от левого верхнего угла (координаты 0, 0).

При щелчке кнопки мыши начальные координаты веера изменятся на текущие. Попробуйте.

Линии рисуются безотрывно.

6. Измените код:

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

If Button Then Me.Line (AnchorX, AnchorY)-(X, Y)

End Sub

Теперь только при нажатой кнопке будет рисоваться веер линий.

7.
В разделе общих объявлений задайте две переменные:

Dim OldX As Integer

Dim OldY As Integer

Затем в событии MouseMove добавьте:

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

If Button Then