Hi,
I'm trying to use a rubber box to select and I'm left with little spots everywhere on the screen. Because of stuff on the screen I can't use cls. I've exagerated the problem to give you folks a better picture so that you might be able to help me. Please place a command button on the form and put this stuff in the code. I want to make it so the square goes away (obviously).


Private Sub Command1_Click()
Line (X1, Y1)-(X2, Y2), , B
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
down = True
X1 = X
Y1 = Y
X2 = X
Y2 = Y
DrawMode = 6
DrawWidth = 20
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If down = True Then

Line (X1, Y1)-(X2, Y2), , B
X2 = X
Y2 = Y
Line (X1, Y1)-(X2, Y2), , B
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
down = False
End Sub