Membuat Label Bergerak

          Untuk pertama kalinya, ane ingin share ke sobat semua tentang cara bagaimana label dalam visual basic bisa bergerak ke sana kemari, hanya dengan cara di bawah ini :

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)

Ketik Coding dibawah ini pada Form Project..

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub

Setelah semua selesai Run aplikasi tersebut, dan liat hasilnya.

Demikian untuk hari ini, semoga bermanfaat... :)