Teks Judul Form Berjalan

Untuk membuat form yang teks judul formnya berjalan hanya diperlukan sebuah timer dengan properti Enabled = True dan Interval = 200. Untuk caranya adalah sbb:

VB 6.0
Di bagian '(Declarations)' Form ketik:

Dim s As String

Di bagian 'Form_Load' ketikkan :

s = "Isi dengan teks judul form"

Di bagian 'Timer1_Timer' ketik:

Caption = Left(s, 15) '15 adalah batasan karakter
s = Right(s, Len(s) - 1) & Left(s, 1)

VB .NET
Di bagian '(Declarations)' Form ketik:

Dim s As String = "Isi dengan teks judul form"

Di bagian 'Timer1_Tick' ketik:

Text = Microsoft.VisualBasic.Left(s, 15) '15 adalah batasan karakter
s = Microsoft.VisualBasic.Right(s, Len(s) - 1) & Microsoft.VisualBasic.Left(s, 1)

DOWNLOAD PROJECT VB 6.0
DOWNLOAD PROJECT VB .NET