[VB6]-Creazione form ke si sposta da sola [form ke trema]

[Oscar87k]

salve a tutti...
io e le mie idee pazze...

mmm... ho un eseguibile qui sotto mano e una volta lanciato, si muove da solo... ovvero la form si sposta da sola.. come se stesse tremando, ecco tremando..
Come si potrebbe fare in vb?
ringrazio & saluto!


ps. ecco.. qui avete l'eseguibile del programma. aiutatemi!
guarda
[se non funziona il link, click tasto destro e fare salva con nome]

[jakula]

Nn mi vorrei sbagliare ma combinando alternativamente le proprietà heigt e width del formassociate all' oggetto timer potresti ottenere il risultato voluto.

[Oscar87k]

ho provato ma nulla.. cambiando height e weight si ingrandisce o si diminuisce la dimensione della form ma non la si sposta nello skermo.
Help

[xegallo]

perchè si sposi cambia top e left o magari per muoverla usa il metodo MOVE

[Oscar87k]

allora io nell'evento timer, con intervallo 20, ho impostato al form.Top e al form.Left rispettivamente

Form1.Top = Form1.Top + 10
Form1.Left = Form1.Left + 10

ma non succede nulla
non so se sono io ke sbaglio o cosa.. Xegallo potresti farmi un esempio della funzione MOVE ke non so usarla x favore?

Grassie

[Oscar87k]

ok funziona.. avevo sbagliato

effetto tremolio:
mettete in una form un timer

Dim i As Integer

Private Sub Form_Load()
    Timer1.Interval = 15
End Sub

Private Sub Timer1_Timer()
    If i = 0 Then
        Form1.Top = Form1.Top + 50
        Form1.Left = Form1.Left + 100
    ElseIf i = 1 Then
        Form1.Top = Form1.Top - 100
        Form1.Left = Form1.Left - 50
    ElseIf i = 2 Then
        Form1.Top = Form1.Top + 100
        Form1.Left = Form1.Left + 50
    ElseIf i = 3 Then
        Form1.Top = Form1.Top - 50
        Form1.Left = Form1.Left - 100
    End If
    
    If i = 3 Then
        i = 0
    Else
        i = i + 1
    End If
End Sub

non è ottimizzato [switch al posto degli if else] ma funziona