Cara Membuat LABEL/TULISAN Berpindah-pindah dalam VB 6

Bukan halnya katak saja yang bisa melompat-lompat.. Tulisanmu pun BISA..

Langkah pertama buat form baru..

Buat Label 4 (bebas) Dan Tulis

Label 1; AKU

 Label 2; SAYANG

Label 3; KAMU

Label 4; MISS..

Setelah itu Pilih Timer.. intervalnya 0

Tulis ini Kedalam Listing ;

Private Sub Form_Load()

Label1.Caption = "AKU"

Label1.Caption = ""

Label2.Caption = "SAYANG"

Label3.Caption = ""

Label4.Caption = ""

Timer1.Interval = 700

End Sub 

Private Sub Timer1_Timer()

If Label1.Caption = "AKU" Then

Label1.Caption = ""

Label2.Caption = "SAYANG"

Label3.Caption = ""

Label4.Caption = ""

Else If Label2.Caption = "SAYANG" Then

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = "KAMU"

Label4.Caption = ""

Else If Label3.Caption = "KAMU" Then

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = "MISS"

Else If Label1.Caption = "MISS" Then

Label1.Caption = "AKU"

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End If

End Sub

Semoga Berhasil..

“Teruslah Melompat Menuju Impianmu”