Public Class Form1
Dim nb As String = "NiceBoat!"
Dim i As Integer = 0
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.White
Me.Width = 500
Me.Height = 500
Me.Label1.BackColor = Color.White
Me.Label1.AutoSize = False
Me.Label1.Text = ""
Me.Label1.Width = 500
Me.Label1.Height = 500
Me.Label1.Location = New Point(0, 0)
Me.Label1.Font = New Font("none", 350)
Me.Label1.TextAlign = ContentAlignment.MiddleCenter
Timer1.Interval = 500
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If i = nb.Length - 1 Then
Timer1.Stop()
End If
Me.Label1.Text = nb.Chars(i)
i += 1
End Sub
End Class