Membuat Tulisan Berjalan VB.Net

Membuat text berjalan ?? Punya kaki kaleee,, hehehehe..
Nah, hal ini pun bisa kita implementasikan di VB.NET,, nah langkah-langkahnya sebagai berikut :
1. Buka Visual Studionya
2. New Project –> Windows Form Application , dan beri nama dan checklist Create directory for solution nya, lihat gambar berikut :

3. Lalu muncul form kosong dan tambahkan control Label dan biarkan namanya tetap dengan Label1 dan design saja sedemikian hingga , lihat gambar berikut :
Properti autosize pada label tersebut di false..
3. Lalu tambahkan komponen timer dan setting intervalnya menjadi 200
4. Coding ini do jendela codenya :

   1: Public Class Form1

   2:     Dim tulisan(2) As String

   3:     Dim i, j As Integer

   4:     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

   5:         If i.Equals(tulisan(j).Length) Then

   6:             Me.Label1.Text = ""

   7:             If j < tulisan.Length - 1 Then

   8:                 j = j + 1

   9:                 Me.Label1.Text = tulisan(j)

  10:             Else

  11:                 j = 0

  12:             End If

  13:             i = 0

  14:         End If

  15:         Label1.Text = tulisan(j).Substring(0, i)

  16:         i = i + 1

  17:     End Sub

  18:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  19:         tulisan(0) = " ariartama.com "

  20:         tulisan(1) = " ariartama.com "

  21:         tulisan(2) = " ariartama.com "

  22:         Label1.Text = tulisan(j)

  23:         Timer1.Start()

  24:     End Sub

  25: End Class

5. Dan lihat apa yang terjadi.. Hurupnya berjalan keluar satu-satu kan ??
Silahkan untuk lebih jelas download programnya disini