Подсветка текста выбранным цветом при наведении мыши

Option Explicit
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0
End Sub
 
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

Option Explicit
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type
Dim WithEvents t As Timer, p As POINTAPI, v, w&
Private Sub Form_Load()
    While Controls.Count < 5: With Controls.Add("vb.textbox", "tx" & Controls.Count)
        .Move 90, (Controls.Count - 1) * 480 + 90, 2400
        .Visible = 1
    End With: Wend
    Set t = Controls.Add("vb.Timer", "t"): t.Interval = 100
End Sub
Private Sub t_Timer()
    GetCursorPos p: w = WindowFromPoint(p.x, p.y)
    For Each v In Controls
        If v.Name Like "tx#" Then _
            v.BackColor = IIf(w = v.hWnd, vbYellow, vbWhite)
    Next
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub