Oggetti scorrevoli

Per far scorrere un oggetto, ad esempio un Button sul Form, si potrà adottare il seguente codice. Si farà uso anche di un Timer:

Private a As Short


Public Sub Form_Open()

' Facciamo partire l'oggetto dall'esterno a destra del Form :
  a = FMain.W

End


Public Sub Button1_Click()

 With Timer1
   .Enabled = True
' Impostiamo la velocità di scorrimento dell'oggetto:
   .Delay = 50
 End With
 
End


Public Sub Timer1_Timer()

  Button1.X = a

' La posizione dell'oggetto decrementa di volta in volta,
' dando così l'effetto dello scorrimento:
  a -= 1

' Se l'oggetto è totalmente al di fuori sulla sinistra del Form,
' allora ricominciamo da capo:
  If a = Button1.W * -1 Then a = FMain.W

End