Introduction - If you have any usage issues, please Google them yourself
linear scanning algorithm rivate AM1 (100) As Integer, AY1 (100) As Integer, AX2 (100) As Integer, AY2 (100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load () Picture1.BackColor = RGB (255, 255, 255) N = 0End SubPrivate Sub picture1_MouseDown (Button As Integer, Shift As Integer, As Single X, Y As Single) If Button = = a ThenCX1 CInt (X) : CX2 = CInt (X) = CY1 CInt (Y) : CY2 = CInt (Y) End Sub IfEnd