Animasi Teks Vb 6.0

Kali ini Putra akan berbagi code animasi teks. Untuk teman - teman yang lagi mencari atau membutuhkan animasi teks untuk VB 6.0. Sebelumnya kamu harus menambahkan Label untuk Teks dan Timer. Kurang lebih tampilannya seperti ini :


Selanjutnya silahkan kamu copy-paste code di bawah ini :

1. Teks Berjalan Ke Atas

Private Sub Timer1_Timer()
PutraQincay.Top = PutraQincay.Top - 100
If PutraQincay.Top <= 0 Then
Timer1.Enabled = True
PutraQincay.Top = "3000"
End If
End Sub

2. Teks Berjalan Ke Bawah

Private Sub Timer1_Timer()
PutraQincay.Top = PutraQincay.Top + 100
If PutraQincay.Top >= 3000 Then
Timer1.Enabled = True
PutraQincay.Top = "-3000"
End If
End Sub

3. Teks Berjalan Ke Kanan

Private Sub Timer1_Timer()
PutraQincay.Left = PutraQincay.Left + 100
If PutraQincay.Left >= 4500 Then
Timer1.Enabled = True
PutraQincay.Left = "-4500"
End If
End Sub

4. Teks Berjalan Ke Kiri

Private Sub Timer1_Timer()
PutraQincay.Left = PutraQincay.Left - 100
If PutraQincay.Left <= -4500 Then
Timer1.Enabled = True
PutraQincay.Left = "4500"
End If
End Sub

Catatan : Teks PutraQincay diganti dan sesuaikan dengan Name Label Teks kamu. Selamat mencoba...