글자 타이핑 효과를 줬는데 글자가 다써진후 꺼져버립니다.

Option Explicit
Dim s As String
Dim m() As String
Dim n As Integer
Dim no As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Call save
End Sub
Private Sub save()
Dim i As Integer
Label1.Caption =
s = ---------------------
n = Len(s)
ReDim m(n)

For i = 0 To n - 1
m(i) = Mid(s, i + 1, 1)
Debug.Print m(i)
Next i

End Sub
Private Sub Timer1_Timer()

If no = n Then
Label1.Caption = Label1.Caption & m(no)
no = no + 1
Else
Unload Me
End If

End Sub─────────────────────────────────────────────────
위에 저렇게 타이핑 효과를줬는데
타이핑이 끝난후 꺼져버리니 ... ;;

빨리 답변 부탁드릴게염