[VB] Težava z random gumbom

Moj namen je gumb Command1 pripraviti do tega, da naključno spreminja položaj po formi...
To je koda:

Private Sub Timer1_Timer()
Dim X As Long, Y As Long, Lega As Variant
X = Int(Rnd * Screen.Width / Screen.TwipsPerPixelX)
Y = Int(Rnd * Screen.Height / Screen.TwipsPerPixelY)
Lega = Command1(X, Y)
End Sub

Kaj sem naredil narobe? Kaže mi, da je problem v poimenovanju "Command1" pri legi... Naj ga najavim?

Vnaprej se vam zahvaljujem za vso pomoč.

Hja, tko pa dejansko ne bo šlo.
Če imaš na formi gumb že narejen potem je lahko x in y lahko le na formi in ne čez celoten zaslon
(ga ne boš imel prikazanega na formi)

X = Int(Rnd * Screen.Width / Screen.TwipsPerPixelX)

Torej :
X = (Rnd * Form1.width) - command1.width
Y = (Rnd*Form1.height) - command1.height

na hitro