Label Gerak VB.Net

Untuk mempercantik aplikasi VB temen-temen mungkin bisa juga dengan menambahkan sebuah teks atau label yang bergerak. baik gerak dari kanan ke kiri ataupun dari bawah ke atas.

Silahkan di copas kodenya , tapi alangkah lebih baiknya jika tidak hanya menyalin saja. Temen-temen juga harus mempelajarinya

Public Class Form1

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

'Gerak dari kanan ke kiri
Label1.Text = " .:: Teks anda disini ::. "
Label1.Left = Label1.Left - 2
If Label1.Left + Label1.Width < 0 Then
Label1.Left = Panel2.Width
End If

' Gerak dari bawah ke atas
Label2.Text = " .:: Teks anda disini ::. "
Label2.Top = Label2.Top - 2
If Label2.Top + Label2.Height < 0 Then
Label2.Top = Panel1.Height
End If

End Sub

End Class

temen-temen bisa merubah kecepatan dari geraknya di properti timer1 dan ubah timer1.interval. Semakin kecil nilainya akan semakin cepat geraknya.