- Membuat Label yang berubah warna secara otomatis
- Membuat caption/judul form yang bergerak.
- Membuat Animasi menggunakan Shape.
- masukan coding dibawah ini pada General pada penulisan coding Visual Basic 6.0
Dim p As Long // Pengenalan variabel untuk animasi yang menggunakan timer
Dim warna As Long // Pengenalan variable untuk animasi label berwarna
p = p + 1 // pengulangan nilai
warna = warna + 5000 // pengulangan
If p = 5 Then // Kondisi jika nilai p = 5
Shape2.Visible = False // menghilangkan Shape
Shape1.Visible = False
ElseIf p = 8 Then // kondisi jika nilai p=8
Shape3.Visible = False
Shape4.Visible = False
ElseIf p = 12 Then
Shape2.Visible = True
Shape1.Visible = True
ElseIf p = 20 Then
Shape3.Visible = True
Shape4.Visible = True
End If
If p = 20 Then p = 0 // kondisi jika nilai p 20 maka nilai p kembali pada nilai 0
Form1.Caption = Left(txt, p) // membuat animasi pergerakan caption form dari sebelah kiri, bisa diganti dengan right (dari kanan).
Label7.ForeColor = warna // Pemberian warna pada label 7