private sub picture1_mousedown(button as integer， shift as integer， x as single， y as single)
    x1 = int(x)
    y1 = int(y)
    picture1.mousepointer = 14
end sub

private sub picture1_mouseup(button as integer， shift as integer， x as single， y as single)
    dim color1(4) as long
    dim x2 as integer
    dim y2 as integer

    x2 = int(x)
    y2 = int(y)

   
    if y1 = y2 then
        for n = 0 to 4
            color1(n) = picture1.point(n + 0.5， y2 + 0.5)
        next n

        a = x2 - x1
        for n = 0 to 4
            if n - a <= 4 and n - a >= 0 then
                z = n - a
            else
                z = abs(5 - abs(n - a))
            end if
            picture1.line (n， y2 + 1)-(n + 1， y2)， color1(z)， bf
        next n
    else
        if x1 = x2 then
            for n = 0 to 4
                color1(n) = picture1.point(x2 + 0.5， n + 0.5)
            next n
            a = y2 - y1
            for n = 0 to 4
                if n - a <= 4 and n - a >= 0 then
                    z = n - a
                else
                    z = abs(5 - abs(n - a))