Sub HighLite(text1 as control)
Dim i As Byte 'Declares temp index Text1.SetFocus 'Sets focus to control sent to Function SendKeys "{HOME}" 'Sets cursor at begining For i = 0 To Len(Text1) SendKeys "+{RIGHT}" 'highlights each char till end of String Next i End Sub |