Hi all,<div><br></div><div>     I'm trying to move a circle (as a cursor) vertically on the screen with the mouse. That is, move the circle up and down only. This is the code I used for this:</div><div><br></div><div><div>Dim cnvs As Canvas</div><div>Set cnvs = Display.Canvas<br></div><div><br></div><div>cnvs.Clear</div><div>cnvs.PenWidth = 5</div><div><br></div><div>Mouse.SetCursorPos Display.XRes/2, Display.YRes/2</div><div>cnvs.Circle Display.XRes/2, Display.YRes/2, 7<br></div><div><br></div><div>Do While (Mouse.Buttons <> ebMouseButton1)</div><div><br></div><div><span class="Apple-tab-span" style="white-space:pre">   </span>Display.WaitForVerticalBlank</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>cnvs.Clear</div><div><span class="Apple-tab-span" style="white-space:pre">   </span>cnvs.Circle Display.XRes/2, Mouse.CursorY, 7</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>sleep 20</div><div><span class="Apple-tab-span" style="white-space:pre">     </span></div><div>Loop</div></div><div><br></div><div>The code works. However, when the circle is moved to the upper part of the screen (close to the edge of the screen), the circle starts to flash. If 'sleep 20' is erased, the circle would be invisible when moved close to the upper edge of the screen. But it is totally normal if the circle is moved to the lower part of the screen. I'm wondering why it happens? Is there a better way to control the circle vertically with the mouse? Thanks so much!</div><div><br></div>

<p></p>

-- <br />
You received this message because you are subscribed to the Google Groups "E-Prime" group.<br />
To post to this group, send email to e-prime@googlegroups.com.<br />
To unsubscribe from this group, send email to e-prime+unsubscribe@googlegroups.com.<br />
To view this discussion on the web visit <a href="https://groups.google.com/d/msg/e-prime/-/Sf-o9_QWq8oJ">https://groups.google.com/d/msg/e-prime/-/Sf-o9_QWq8oJ</a>.<br />
For more options, visit <a href="https://groups.google.com/groups/opt_out">https://groups.google.com/groups/opt_out</a>.<br />
 <br />
 <br />