Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

ниже приведенный код позволяет мне рисовать
(пусть даже и примитивно)
в Picture1.PictureBox

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

Text1.Text = X
Text2.Text = Y
If Button = 1 Then
Picture1.PSet (Text1.Text, Text2.Text), Combo1.Text
End If

End Sub

метод Picture1.Cls позволяет мне очистить всю область Picture1.PictureBox

а как мне добиться того, чтобы я мог стирать только то что мне нужно

т.е.

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

Text1.Text = X
Text2.Text = Y
If Button = 2 Then

сотри (Text1.Text, Text2.Text)

End If
End Sub

С Уважением и Благодарностью
Намик Рустамов