Visual Basic 6 - Timer

ciao ragazzi...cm posso a far comparire + frasi in una textbox, usando il controllo Timer?
Io voglio ke quando mando in esecuzione il programma, tramite un ciclo(credo) prima mi compaia una frase cn scritto:
1)Ciao a tutti
poi...
2)Benvenuti nel mio programma
e infine...
3)Testatelo

P.S.
Mi raccomando voglio ke le frasi siano visualizzate in una TextBox...Grazie...aiutatemi...

io c sn riuscito, ma nella Textbox riesco a visualizzare sl 2 messaggi...ne vorrei visualizzare d +...cm posso fare?

Io x visualizzare 2 messaggi ho fatto così:
Private Sub Timer1_Timer()
Text1.Text = "Ciao a tutti"
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Text1.Text = "Benvenuti nel mio programma"
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

Poi ho impostato il timer1 a True cn Interval=2000 e invece il timer2 a False cn Interval=2000...xò io vorrei visualizzare + d 2 messaggi,almeno 5 messaggi voglio visualizzare...cm posso fare?...serve un ciclo?...rispondete grazie...Aiutatemi!!!!!!!!

Non ho capito tanto bene...

Ma da quello che ho capito(scusate il gioco di parole) tu dovresti fare :

quando metti il testo nella textbox devi mettere :

text1.text = "Ciao"

Poi nel secondo timer devi fare :

text1.text[b]= text1.text &[/b] "Benvenuto nel mio programma!

Oppure se vuoifare che alla seconda frase vai a capo fai :

text1.text= text1.text & [b]VbCrLf &[/b] "Benvenuto nel mio programma!

Io così ho capito,se non è così spiegami meglio!

non basta un solo timer?
Private Sub Timer1_Timer()
Select Case N
case 1
text1.text="Benvenuti nel mio programma
case 2
text1.text="bla bla bla"
case 3
..
end select
N=N+1
end sub

Ahhh!!

Io avevo capito un altra cosa

Private Sub Command1_Click()
Text1.Text = "Ciao"
Me.Refresh
Aspetta (2)
Text1.Text = Text1.Text & vbCrLf & "Benvenuti nel mio programma"
Me.Refresh
Aspetta (2)
Text1.Text = Text1.Text & vbCrLf & "testatelo"
End Sub
Public Sub Aspetta(quantiSecondi As Integer)
Dim t1 As Double
t1 = Timer
Do
If Timer - t1 > quantiSecondi Then Exit Do
Loop
End Sub
'---------------
',text1.text deve avere multiline true

P4p3r0g4, il programma mi da errore su:
N=N+1
xkè?
ho dikiarato la variabile:
dim N as string

ho fatto bene?...

la variabile N è un contatore,vero?

allora devo azzerarlo e dikiarare così:
dim N as integer

così?...risp.