Muovere oggetti

[Lux]

Ciao a tutti, per divertirmi un po' ho creato un form, ho aggiunto un button1 e dopo averci cliccato su, l'oggetto button1 si muove verso l'alto.
ecco il codice che ho inserito:

Codice: [Seleziona]

PUBLIC SUB Button1_Click()  
DIM x AS Integer   
x = 308   
WHILE x > 56        
WAIT 0.1        
x = x - 10       
Button1.Move(119, x)  
WEND   
END

ora mi fa uno strano effetto, ovvero l'oggetto button1 oltre a salire(quindi a muoversi sull'asse delle ordinate Y) si muove anche l'ungo lasse delle ascisse(anche se di poco).
Come posso risolvere?
Ecco come ho impostato le proprietà:
X = 119
Y = 308
ciao.

[claudio]

Modifica il codice in questo modo:

PUBLIC SUB Button1_Click()
    DIM x AS Integer
    x = ME.Button1.Top
    WHILE x > 56
        WAIT 0.1
        x = x - 10
        Button1.Move(ME.Button1.Left, x)
    WEND
END

[Lux]

Grazie mille! Cosi ho risolto!