by Mossaddeque Mahmood (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 9th May 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Light Text
VBcoders
Me.BackColor = &H80000007
Timer1.Interval = 1
Label1.Caption = "M"
Label2.Caption = "a"
Label3.Caption = "h"
Label4.Caption = "m"
Label5.Caption = "u"
Label6.Caption = "d"
Label1.ForeColor = &H80000010
Label2.ForeColor = &H80000010
Label3.ForeColor = &H80000010
Label4.ForeColor = &H80000010
Label5.ForeColor = &H80000010
Label6.ForeColor = &H80000010
Label1.BackStyle = 0
Label2.BackStyle = 0
Label3.BackStyle = 0
Label4.BackStyle = 0
Label5.BackStyle = 0
Label6.BackStyle = 0
End Sub
Private Sub Timer1_Timer()
Label6.ForeColor = &H80000010
Label1.ForeColor = &H8000000F
Timer1.Interval = 0
Timer2.Interval = 300
End Sub
Private Sub Timer2_Timer()
Label1.ForeColor = &H80000010
Label2.ForeColor = &H8000000F
Timer2.Interval = 0
Timer3.Interval = 300
End Sub
Private Sub Timer3_Timer()
Label2.ForeColor = &H80000010
Label3.ForeColor = &H8000000F
Timer3.Interval = 0
Timer4.Interval = 300
End Sub
Private Sub Timer4_Timer()
Label3.ForeColor = &H80000010
Label4.ForeColor = &H8000000F
Timer4.Interval = 0
Timer5.Interval = 300
End Sub
Private Sub Timer5_Timer()
Label4.ForeColor = &H80000010
Label5.ForeColor = &H8000000F
Timer5.Interval = 0
Timer6.Interval = 300
End Sub
Private Sub Timer6_Timer()
Label5.ForeColor = &H80000010
Label6.ForeColor = &H8000000F
Timer6.Interval = 0
Timer1.Interval = 300
End Sub