private sub Form1_MouseMove(x as single,y as single)
form1.pset(x,y),vbred
end sub