banner..

[jeba]

Hi there!
How to create a banner with the text running? Banner should run near the task bar always.
Please help.

Jeba.

[MartinLiss]

Create a form that contains a textbox and a timer. Set the timer's Interval to about 100 and then then add the following code.
[/code]Private Sub Form_Load()

Text1.Top = 0
Text1.Left = 0
Text1.Width = Me.Width
Text1.BorderStyle = 0
' Make sure to leave the space after the period
Text1.Text = "This is the banner that you want to display on the screen. "
Me.BorderStyle = 0
Me.Height = Text1.Height
Me.Top = Screen.Height - (Me.Height * 2)

End Sub


Private Sub Timer1_Timer()

Text1.Text = Right$(Text1.Text, Len(Text1.Text) - 1) & Left$(Text1.Text, 1)

End Sub[/code]

There is probably a better way to place the banner near the bottom of the screen than the way I did, but perhaps someone else can help you with that.