Come Visualizzare Ad Intervalli Regolari Delle Lettere In 1 Caption?

[progxx]

GRAZIE 1000 X I TANTI AIUTI CHE SEMPRE MI DATE SIETE BRAVISSIMI.
BEH COME AL SOLITO NON VOGLIO MAI SMETTERE DI IMPARARE COSE NUOVE.
SARESTE COSI GENTILI DA DIRMI IL CODICE DI COME FAR COMPARIRE IN 1 CAPTION DELLE LETTERE CHE SI AGGIUNGONO AD INTERVALLI REGOLARI?
STO DISPERATAMENTE PROVANDO X TENTATIVI UTILIZZANDO
LA ROUTINE TIMER MA MI SA CHE QUALCOSA MI SFUGGE.

VI RINGRAZIO ANTICIPATAMETE

[xegallo]

forse ho capito il tuo problema (a parte quello del caps lock )
all'oggetto timer devi impostare la proprietà interval al nomero di millisec che ti serve
poi oni volta che il tempo passa si genera l'evento timer nel quale scriverai

label1.caption = label1.caption & "Nuova lettera"

[progxx]

credo che abbia sbagliato a spiegarmi.
voglio far comparire lettere ad intervalli regolari nella caption, ma le lettere che voglio fare visualizzare devono comporre un nome.
con il codice che mi avete dato si ripete solo la lettere ad ogni trascorrere di millesecondi impostati.


qual'e il codice x visualizzare un nome facendo comparire ad intervalli regolari le lettere?

grazie...

[xegallo]

Originariamente inviato da progxx
credo che abbia sbagliato a spiegarmi.
voglio far comparire lettere ad intervalli regolari nella caption, ma le lettere che voglio fare visualizzare devono comporre un nome.
con il codice che mi avete dato si ripete solo la lettere ad ogni trascorrere di millesecondi impostati.


qual'e il codice x visualizzare un nome facendo comparire ad intervalli regolari le lettere?

grazie...

io ti ho solo detto come funzionava la cosa cmq prova così

Option Explicit
Dim Nome() As String
Private Sub Form_Load()
   Timer1.Interval = 1000
   ReDim Nome(4) As String
   Nome(0) = "M"
   Nome(1) = "a"
   Nome(2) = "r"
   Nome(3) = "c"
   Nome(4) = "o"
End Sub

Private Sub Timer1_Timer()
   Static index As Integer
   If index > 4 Then
      Timer1.Enabled = False
      Exit Sub
   End If
   Label1.Caption = Label1.Caption & Nome(index)
   Label1.Refresh
   index = index + 1
End Sub