Option Explicit
Private Sub Timer1_Timer()
Dim N As Integer
N=0
Select Case N
case 1
text1.text="Benvenuti nel mio programma
case 2
text1.text="bla bla bla"
end select
N=N+1
end sub
poi ho impostato il timer a 2000 d Interval...cs devo cambiare pure?...dv sbaglio?...Aiuto!!!
Se ogni volta che il timer si aziona dici che la variabile N = 0 non può diventare mai 1 o 2...
Un'altra cosa se vuoi che si ripeta sempre,una volta arrivata a 2(il numero di frasi,ma che può anche essere differente),si deve azzerare,o meglio deve essere = 1... Ti posto il codice modificato :
Dim N As Integer
Private Sub Form_Load()
N = 0
End Sub
Private Sub Timer1_Timer()
If N > 2 Then N = 1
Select Case N
Case 1
Text1.Text = "Benvenuti nel mio programma "
Case 2
Text1.Text = "bla bla bla"
End Select
N = N + 1
End Sub
Come vedi la variabile N solo all'inizio(cioè Form_Load) è uguale a 0! Intendi