Credit Title

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

Untuk menampikannya secara fullscreen / layar penuh, klik disini.