Running Text dengan Vb.Net

          Untuk keindahan tampilan pada aplikasi yang kita bangun dengan bahasa pemrograman Vb. Net, kita bisa menambahkan running teks pada form yang kita buat cara-caranya adalah sebagai berikut:

1. Buka Microsoft Visual Studio 2010/2008

2. Kemudian desain form nya seperti gambar dibawah ini

3. Selanjutnya double click form1 dan isikan coddingnya:

       Kata = txtketikan.Text

        i = 1

        kal = Me.Text

        a = 1

dibawah class form1 deklarasikan variabel berikut:

        Dim Kata As String

        Dim i, a As Integer

        Dim kal As String

double click Timer1 dan ketikkan codingnya:

        Label1.Text = "Waktu Sistem: " & Format(Now, "hh:mm:ss")

double click Timer2 dan ketikkan codingnya:

        Label2.Left = Label2.Left + 5

        If Label2.Left >= Me.Width Then

            Label2.Left = 0

        End If

        Label4.Text = "Posisi x,y:" & Label2.Left & "," & Label2.Top

        Label2.ForeColor = Color.Red

double click Timer3 dan ketikkan codingnya:

         Label3.Left = Label3.Left - 5

        If Label3.Left < 0 - Label3.Width Then

            Label3.Left = Me.Width

        End If

        Label5.Text = "Posisi x,y:" & Label3.Left & "," & Label3.Top

double click Timer4 dan ketikkan codingnya:

        txtketikan.Text = Mid(Kata, 1, i)

        i = i + 1

        If i > Len(Kata) Then i = 1

double click Timer5 dan ketikkan codingnya:

 Me.Text = Mid(kal, 1, a)

        a = a + 1

        If a > Len(kal) Then a = 1

4. Aplikasi setelah dijalankan hasilnya seperti gambar dibawah ini:

Semoga bermanfaat.....
download program contoh