координаты мыши

возможно это пятничный вопрос
красным зажигает при входе со всех сторон но черным только при выходе налево и вверх

If (X > Прямоугольник97.Left) And X < (Прямоугольник97.Left + Прямоугольник97.Width) _
    And (Y > Прямоугольник97.Top) And (Y < Прямоугольник97.Top + Прямоугольник97.Height) Then
        Прямоугольник97.BackColor = vbRed
Else
        Прямоугольник97.BackColor = vbBlack
End If

Есть событие Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Оно?

оно .

туплю. ужэ нормально не могу листинг выложить на форум

Дык, а на какое событие это записано? Если на Form_MouseMove, то, может снизу и справа есть другие контролы, или формы уже нет....

Private Sub Прямоугольник97_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (X > Прямоугольник97.Left + 10) And X < (Прямоугольник97.Left + Прямоугольник97.Width - 10) _
    And (Y > Прямоугольник97.Top + 10) And (Y < Прямоугольник97.Top + Прямоугольник97.Height - 10) _
    Then
        Прямоугольник97.BackColor = vbRed
Else
        Прямоугольник97.BackColor = vbBlack
End If
    
End Sub

если у вас работает - пойду пить пиво

ILL HEAD

если у вас работает - пойду пить пиво

Приятного.

Несколько отвлеченных соображений. Компьютер - штука дискретная. Событие МаусМув происходит не бесчисленное количество раз по мере движения мышки (как бесконечно число точек на кривой), а через какие-то небольшие интервалы времени. Если мышка движется из прямоугольника наружу, то: срабатывает несколько раз внутри прямоугольника (и тогда получается красный цвет), а потом мышка выходит из прямоугольника и оно не срабатывает совсем (потому что процедура повешена на событие прямоугольника). Если перенести на событие формы (и, возможно, сделать еще что-нибудь), то должно заработать.

Владимир Саныч

Если перенести на событие формы (и, возможно, сделать еще что-нибудь), то должно заработать.

на событие секции формы