Membuat Animasi Pada Title Form

Siapa bilang title tidak bisa di maenin? Heheheeeeee nih dia triknya. Buatlah sebuah form dengan Properties :

Object	Properties
Form1	Name	FrmAniTit
	FormBorderStyle	FixedSingle
	Text	Visual Basic 2010
Timer1	Enabled	True
	Interval	250

Setelah Itu Masukanlah Kode berikut pada

Public Class FrmAniTit

'Pengatur Index dari Kata mana yang akan di tampilkan

Dim idx As Byte = 0

'Deklarasi Array Untuk Kata-kata

Dim Judul() = {"", "V", "Vi", "Vis", "Visu", "Visua", "Visual", "Visual B", "Visual Ba", "Visual Bas", "Visual Basi", "Visual Basic", "Visual Basic 2", "Visual Basic 20", "Visual Basic 201", "Visual Basic 2010"}

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If idx = Judul.Length Then

idx = 0

Else

Me.Text = Judul(idx)

idx += 1

End If

End Sub

End Class

Untuk source code lengkapnya anda bisa mendownloadnya Disini 

By Franky So

Posted in: Source Code,Visual Basic 2010