Visual Basic 6 - Muovere Shape con Command Button

Allora ho creato in vb6 una form con una shape (è l' immagine a forma di cerchio) e vorrei farla muovere di tot pixel in su alla pressione di un command buttom.
Questo è il codice:

Private Sub Command1_Click()
Shape1.move 480, 5040
end sub

il problema è la decrementazione di -10 del 5040 ad ogni pressione del command button.
Come posso fare a decrementare?

Allora, se ho capito bene vorresti far spostare una shape con l'evento click del mouse di alcuni pixel in su.
Il tuo codice va allora modificato così:

Private Sub Command1_Click()
Shape1.Top = Shape1.Top - 30
'Dove 30 sta per l'intervallo di spazio entro cui fai muovere l'oggetto shape
End Sub

E se la voglio spostare a destra o a sinistra?

Per spostarla a sinistra:

Private Sub Command1_Click()
Shape1.Left=Shape1.Left-30
End Sub

Per spostarla a destra:

Private Sub Command1_Click()
Shape1.Left=Shape1.Left+30
End Sub

L' ultimissima cosa e poi non ti do più fastidio...come faccio a verificare la posizione della shape?
Cioè, se, ad esempio, la shape si trova in queste coordinate: 345,678 esegui queste instruzioni:
command1.enabled = false.
Come faccio?

Non mi stai dando fastidio, non ti preoccupare ...
Precisa però le "coordinate": 345 corrisponde alla posizione della shape rispetto ai margini superiore e inferiore della form e 678 alla sua posizione rispetto ai margini sinistro e destro della form?

Si

Ok, allora devi inserire questo codice nella routine Click del CommandButton:

If Shape1.Top = 345 And Shape1.Left = 678 Then
Command1.Enabled = False
End If