timer and capture the letter [RESOLVED]

[surface]

hi all
i need help regarding the timer and capture the letter and display it.how do i blink the letter for like 5sec and go to the next letter and if needed capture it on to the label.
example :
the letter "A" blink for 5 sec then "B" start to blink if the letter is needed it will be capture on to the label.

Private Sub Form_Load()
   ' Start the timer.
   Timer1.Interval = 500
   Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
dim i as integer
 
For i = 0 To 0
' Toggle the color of the letter "A"
    If Label1.ForeColor = vbRed Then
        Label1.ForeColor = vbBlack
    Else
       Label1.ForeColor = vbRed
    End If
 Next i
End Sub