private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
if button = vbrightbutton then
frmautoredraw.line (0, 0)-(150, 150)
end if
end sub
private sub form_resize()
picsave.width = me.scalewidth
picsave.height = me.scaleheight
end sub
