Как сделать чтобы форма перемещалась по экрану и меняла цвет? - VB

Dim X1 As Integer, Y1 As Integer, pi As Double, rad As Double, xr As Integer, yr As Integer, R As Integer
 
Private Sub Form_Load()
X1 = 3000
Y1 = 3000
R = 5000
pi = 3.1415
Timer1.Interval = 200
End Sub
 
Private Sub Timer1_Timer()
rad = rad + 0.1
Form1.BackColor = QBColor(Rnd * 15)
rad = rad + pi / 6
xr = X1 + R * Cos(rad)
yr = Y1 + R * Sin(rad)
Form1.Top = yr
Form1.Left = xr
End Sub