Form's Caption

hello,

i want to make form's caption scrolling. means text in caption start moving in its bar. just like we us MARQUEE tag in HTML to scroll the text. how is it possible ?

thanks

Add a timer to a form.
Copypaste this code.

Code:

---

Option Explicit
Private Const FormCaption = "Hello, Word!"
Private Sub Form_Load()
  Me.Caption = FormCaption
  Timer1.Interval = 250
  Timer1.Enabled = True
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static Counter As Integer
Counter = Counter + 1
If Counter > Len(FormCaption) Then
  Counter = 1
End If
Me.Caption = Space(Len(FormCaption) - Counter) & Left(FormCaption, Counter)
End Sub

---

wow thats cool = D

Have a nice day,

Cesare Imperiali

Nice to see someone tweak the standard "Hello, world!" ;)

Just kiddin', neat code.