Membuat Label Berubah-ubah [VB6]

Selamat siang para penggemar Visual Basic yang berbahagia :) kali ini saya akan share Cara Membuat Label/Text Berubah-ubah, untuk latihan kita coba menggunakan label. Artikel ini tidak jauh dari artikel sebelumnya yaitu Cara Membuat Label/Text Berkedip. Hanya saja ada beberapa Syntax/Code tambahan, ok langsung saja kita masuk ke materi pembahasan.

Bahan dan langkah-langkah :
-    Siapkan dlu Visual Basic 6-nya.. jika anda blum punya Visual Basic 6-nya silahkan download dan install dlu (link donlot ada d'blog ini juga silahkan cari sendiri hhe..)
-    Buka Visual Basic 6-nya
-    Buat 1 Form, 1 Label dan 1 Timer (Lihat gambar)
-    Masuk ke Windows Code (Jendela Kode), jika kurang mengerti anda bisa Double Click pada Form1 dan hapus semua code yang ada (CTRL + A) dan Delete atau Backspace
-    Masukan Syntax/Code dibawah ini :

Option Explicit Private Sub Form_Load() Label1.AutoSize = True Label1.Caption = "Credit By" ' Sesuaikan Captionnya dengan yang dibawah Timer1.Interval = 1500 ' Kecepatan bergerak.. (semakin kecil = semakin cepat) Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ' ini syntax berubah text(caption) If Me.Label1.Caption = "Credit By" Then ' Sesuaikan Captionnya dengan yang diatas Me.Label1.Caption = "A. Noerhasan" ElseIf Me.Label1.Caption = "A. Noerhasan" Then Me.Label1.Caption = "Thanks to" ElseIf Me.Label1.Caption = "Thanks to" Then Me.Label1.Caption = "www.si-abe.com" ElseIf Me.Label1.Caption = "www.si-abe.com" Then Me.Label1.Caption = "and" ElseIf Me.Label1.Caption = "and" Then Me.Label1.Caption = "www.g-tritus.blogspot.com" ElseIf Me.Label1.Caption = "www.g-tritus.blogspot.com" Then Me.Label1.Caption = " " ElseIf Me.Label1.Caption = " " Then Me.Label1.Caption = "Credit By" End If End Sub

-    Coba jalankan Projectnya atau tekan [F5] dan lihat hasilnya :)
-    Kalian bisa rubah Caption Labelnya sesuka kalian ("Credit By", "A. Noerhasan", "Thanks to", "www.si-abe.com", "and", "www.g-tritus.blogspot.com" dan " ")
-    Silahkan kalian kembangkan kembali Syntax dan Codenya  bila anda butuh referensi silahkan ambil artikel yang ada di Blog ini.. :)

Catatan :
-    Text yang diawali dengan tanda kutip (berwarna hijau) hanyalah komentar saya untuk penjelasan didalam Syntax/Code, anda bisa hapus komentar nya.
-    Syntax/Code Label1.Caption = "Credit By" yg ada di Form_Load harus sama dengan Me.Label1.Caption = "Credit By" yang ada di Timer1_Timer, anda cukup merubah Caption "A. Noerhasan"-nya saja.
-    Syntax/Code Timer1.Interval = 1500 berfungsi untuk mengeksekusi kecepatan berubah-ubahnya Caption Label1,  Semakin kecil intervalnya maka semakin cepat Caption Berubah-ubah  ;)

Selamat belajar dan semoga sukses :) jangan lupa untuk terus tongkrongin blog ane di http://www.si-abe.com dan http://www.g-tritus.blogspot.com hhe.. :) dan like juga Fanspage Blog kami :)
Terimakasih atas kunjungan anda.
wasallamualaikum wr. wb.