Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
' Geradensteigung
m = (Line1.X2 - Line1.X1) / (Line1.Y2 - Line1.Y1)
' Achsenabschnitt
b = (Line1.Y2 * Line1.X1 - Line1.Y1 * Line1.X2) / (Line1.Y2 - Line1.Y1)
' liegt der aktuelle Punkt auf der Geraden?
If Abs((m * Y + b) - X) < 20 Then
    ' liegt der aktuelle Punkt auf der Strecke?
    If X < Line1.X2 And X > Line1.X1 And Y < Line1.Y2 And Y > Line1.Y1 Then
        Line1.BorderColor = vbRed
    End If
Else
    Line1.BorderColor = vbBlack
End If
End Sub