[tukyunaaya]

Option Explicit
Dim i As Integer
Dim sTextInc As String

Private Sub Form_Load()
sTextInc = LblInc.Caption
End Sub

Private Sub TmrInc_Timer() 'Increments text in LblInc
i = i + 1
If i > Len(sTextInc) Then
i = 0
TmrInc.Interval = 1000
Else
LblInc.Caption = Left(sTextInc, i)
TmrInc.Interval = 100
End If
End Sub

[silverbullet]

thats some sort of code similar to wriiten in C na ?

[sphere]

Very clever! I never thought of it. I think it can be used also in other languages.