Ez question but i need help

This is for screen saver
I want to make a rectangle shape randomly move around the screen saver infinite without stopping

Thank~~~~~~~~~~if you can answer this
plz

in a timer:

Code:

---

Private Sub Timer1_Timer()
    Shape1.Move Rnd * (ScaleWidth - Shape1.Width), Rnd * (ScaleHeight - Shape1.Height)
End Sub

---