' Gambas class file PUBLIC SUB da_MouseMove() IF Mouse.Button = 1 THEN Draw.Begin(da) Draw.Ellipse(Mouse.X, Mouse.Y, 9, 9) Draw.End ELSE Draw.Begin(da) Draw.Rect(Mouse.X, Mouse.Y, 9, 9) Draw.End ENDIF END