Formumuza bitane Label Ekliyoruz adını LblRawkmetal  farzedelim
bitane de Timer Ekliyoruz İnterval değerini 100 yapıyoruz.

daha sonra kodları olduğu gibi C/P yapıyoruz...


Option Explicit
Const CREDITS = "Burdan böle ince ince geçerkene " & vbNewLine & " bide alt satıra geçtik hayda breeee " & vbNewLine

Private Sub Timer1_Timer()
    Static Counter As Integer
    With LblRawkmetal ' label ismi
        Counter = Counter + 1
        .Caption = Left$(CREDITS, Counter)
    End With
End Sub