Form's Caption

[Ahmed Sufyan]

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

[Cimperiali]

Add a timer to a form.
Copypaste this 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

[Coderrrr]

wow thats cool = D

[Cimperiali]

Have a nice day,

Cesare Imperiali

[doofusboy]

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

Just kiddin', neat code.