Membuat Tulisan Seperti Mengetik Pada VB.NET

1. Desainlah formnya seperti gambar berikut dengan menambahkan satu buah Label dan satu buah Timer.

2. Kemudian ketikkan saja koding di bawan ini:
Public Class Form1
    Dim tulisan(3) As String
    Dim i, j As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tulisan(0) = " Welcome to www.bisterpurba.blogspot.com "
        tulisan(1) = " Thank's for coming and please come back any time "
        tulisan(2) = " Good Luck !!! ... "
        tulisan(3) = " Waktu menunjukkan pukul : " & TimeValue(Date.Now) & " "


        Label1.Text = tulisan(j)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If i.Equals(tulisan(j).Length) Then
            Me.Label1.Text = ""
            If j < tulisan.Length - 1 Then
                j = j + 1
                Me.Label1.Text = tulisan(j)
            Else
                j = 0
            End If
            i = 0
        End If
        Label1.Text = tulisan(j).Substring(0, i)
        i = i + 1
    End Sub
End Class


3. Nah, sekarang coba tekan ctrl+f5 dan hasilnya akan tampak seperti ini:

Selamat mencoba..
Sekian dulu postingan ane ya gan..