Private Control1 As New Label Private circle As RectangleF Private win As Integer Private p2vbW As Integer Private p2vbH As Integer ' A simple test of the methods added to the graphics package for ' the hands-on tutorials, so GraphWin objects can deal with the ' last (previous) mouse click. ' The animation stops when the mouse is clicked. ' ' from graphics import * ' import time Public Sub Routine2 Form1.Text = "Default" Form1.Width = 100 + 100 p2vbW = 100 Form1.Height = 100 + 100 p2vbH = 100 Control1.Left = p2vbW * ((100) / 100) Control1.Top = p2vbH - (p2vbH * (( 40) / 100)) Control1.Text = "Click to quit." Control1.AutoSize = True Form1.Controls.Add(Control1) ' win.clearLastMouse() while win.getLastMouse() = Nothing circle.X = circle.X + 50 circle.Y = circle.Y + 0 Threading.Thread.Sleep(.5 * 1000) circle.X = circle.X + -50 circle.Y = circle.Y + 0 Threading.Thread.Sleep(.5 * 1000) End While End Sub