Animasi Kata

Buat form design seperti di bawah ^_^"

Keterangan:

ismah = label 1
nurul = label 2
fahturahmi = label 3
timer :timer 1, 2, dan 3 (terserah letaknya diimana)
interval timer = 10

code:

Dim Red, Green, Blue As Integer

Private Sub Timer1_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0
Green = Green + 50
If Green >= 255 Then
Green = 0
Red = Red + 50
ElseIf Red >= 255 Then
Red = 0
End If
Label2.ForeColor = Int(RGB(Red, Green, Blue))
Label2.Refresh
Label2.Left = Label2.Left - 15
If Label2.Left <= -Label2.Left Then
Label2.Left = Form5.Width
End If
End Sub

Private Sub Timer2_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0
Green = Green + 50
If Green >= 255 Then
Green = 0
Red = Red + 50
ElseIf Red <= 255 Then
Red = 0
End If
Label3.ForeColor = Int(RGB(Red, Green, Blue))
Label3.Refresh
Label3.Top = Label3.Top - 15
If Label3.Top <= -Label3.Top Then
Label3.Top = Form5.Width
End If
End Sub

Private Sub Timer3_Timer()
If Blue <= 255 Then Blue = Blue + 50 Else Blue = 0
Green = Green + 50
If Green >= 255 Then
Green = 0
Red = Red + 50
ElseIf Red >= 255 Then
Red = 0
End If
Label1.ForeColor = Int(RGB(Red, Green, Blue))
Label1.Refresh
End Sub

jika ada yang error, silakan comment :)

semoga berhasil ^_^'