Forms

3.19 Testo scorrevole in una form.
  Emanuele Cesena
Dim incr As Integer 

Private Sub Form_Open(Cancel As Integer) 
   incr = 20 
End Sub 

Private Sub Form_Timer() 
   If incr > 0 Then 
      If Me!testo_scorr.Left + Me!testo_scorr.Width + incr <= Me.Width 
         Then 
         Me!testo_scorr.Left = Me!testo_scorr.Left + incr 
      Else 
         incr = -incr 
      End If 
   Else 
      If Me!testo_scorr.Left + incr >= 0 Then 
         Me!testo_scorr.Left = Me!testo_scorr.Left + incr 
      Else 
         incr = -incr 
      End If 
   End If 
End Sub
Impostare, per la form, la proprieta' Intervallo Timer ad un valore maggiore di 0.

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.