Membuat Credit tittle (tulisan bergerak dari atas ke bawah atau sebaliknya)

Credit title adalah sebuah rangkaian tulisan dan gambar yang bergerak dari bawah ke atas. Credit title biasanya dapat ditemukan dalam akhir sebuah film / sinetron.

[ VB 6.0 ]
Buat sebuah Form dengan sebuah kontrol PictureBox (BorderStyle=None) dan sebuah kontrol Timer (Enabled=True; Interval=5). Lalu tempatkan isi (label, image, dll) yang ingin dijalankan ke dalam kontrol PictureBox tadi. Kemudian, sesuaikan ukuran PictureBox agar semua isinya dapat terlihat. Ketikkan kode berikut :

Di 'Form_Load'

Picture1.Top = Me.ScaleHeight

Di 'Form_Resize"

Picture1.Left = (Me.Width / 2) - (Picture1.Width / 2)

Di 'Timer1_Timer'

Picture1.Top = Picture1.Top - 15
If Picture1.Top <= -Picture1.Height Then 'jika sudah selesai
Picture1.Top = Me.ScaleHeight 'ulangi lagi
End If

[ VB .NET ]
Buat sebuah Form dengan sebuah kontrol Panel dan sebuah kontrol Timer (Enabled=True; Interval=10) didalamnya. Lalu tempatkan isi (label, image, dll) yang ingin dijalankan ke dalam kontrol Panel tadi. Kemudian, sesuaikan ukuran Panel agar semua isinya dapat terlihat. Ketikkan kode berikut :

Di 'Form1_Load'

Panel1.Top = Me.ClientRectangle.Height

Di 'Form1_Resize"

Panel1.Left = (Me.Width / 2) - (Panel1.Width / 2)

Di 'Timer1_Tick'

Panel1.Top = Panel1.Top - 1
If Panel1.Top <= -Panel1.Height Then 'jika sudah selesai
Panel1.Top = Me.ClientRectangle.Height 'ulangi
End If