Efek Animasi Caption Form Bergantian

Untuk gambaran yang lebih jelas, cara pembuatannya sebagai berikut :

1. Buka Visual Basic, kemudian tambahkan sebuah Timer pada form.
2. Klik Double pada area Form dan ketikka listing sebagai berikut :

Pivate Sub Form_Load()
Timer1.Interval=500
Form1.Caption=""
Form1.Height=0
End Sub

Private Sub Timer1_Timer()
If Form1.Caption="Ini" then
Form1.Caption="Adalah"
Else
If Form1.Caption="Contoh" then
Form1.Caption="Efek" then
Else
If Form1.Caption="Animasi" then
Form1.Caption="Caption" then
Else
If Form1.Caption="Form" then
Form1.Caption="Bergantian" then
Else
If Form1.Caption="Pemrograman" then
Form1.Caption="Visual" then
Else
Form1.Caption="Basic 6.0"
End If
End If
End If
End If
End If

3. Setelah selesai sekarang coba jalankan Aplikasi yang dibikin tadi.
4. Selesai.