Dim x As IntegerPrivate Sub Form_Load()P1.Width = P1.Height: P1.ScaleMode = 3:P1.Scale(-10, 10)-(10, -10)P1.DrawWidth = 2: x = 90: Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()P1.PSet (8*Cos(x*3.141593/180), 8*Sin(x*3.141593/180)), vbRe...