hi all,
i have 20 txtboxes where a user has to input a correct answer to a question , if incorrect i want the text to be highlighted
i have used the code below but only 1 txtbox highlights even if more are incorrect.


If LCase(Text1) Like LCase("Fred") Then
lblScore.Caption = lblScore.Caption + 1
Else
lblScore.Caption = lblScore.Caption + 0
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If

tink