Подобие системного меню окна - помогите

[Watts[]n!]

Всем доброго времени суток!

Делаю некий аналог системного меню окна.
Имеется форма, на которой один над другим расположены Лейблы.
При наведении указателя один из лейблов (тот, над которым указатель) должен изменить цвет фона и шрифта.

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Y >= 10 Then
        If Y <= 290 Then
            Call closeMenuActive
        End If
    End If
   
    If Y >= 300 Then
        If Y <= 580 Then
            Call moveMenuActive
        End If
    End If
   
    If Y >= 590 Then
        If Y <= 870 Then
            Call miniMenuActive
        End If
    End If
End Sub

Одна из функций изменения цветов:

Код: Выделить всё

Function closeMenuActive()
    lblClose.ForeColor = &HFFFFFF
    lblClose.BackColor = &H808080
    lblMove.ForeColor = &HC0C0C0
    lblMove.BackColor = &H404040
    lblMin.ForeColor = &HC0C0C0
    lblMin.BackColor = &H404040
End Function

Остальные по аналогии.
Столкнулся с такой проблемой: Цвет изменяется не всегда, чаще всего при быстром перемещении курсора.

Заранее благодарен!

[Saturn.65]

Пример с одной строчкой без функций.

Код: Выделить всё

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012
Label1.BackColor = &H8000000F
Form1.BackColor = &H8000000F
End Sub

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


При наведении все будет красным, при отведении все будет как раньше.

[|( () ( T |/| |(]

Saturn.65, твой пример мало чем отличаеться от приведённого Watts[]n!

Лучше уж так:

Код: Выделить всё

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If x < 0 Or x > ScaleWidth Or y < 0 Or y > ScaleHeight Then
  Call ReleaseCapture
  Me.Caption = "MouseLost"
Else
  Call SetCapture(Me.hwnd)
  Me.Caption = "MouseMove"
End If
End Sub

[Twister]

Ни черта не понял.
Тебе просто "активный" лэйбл нужен?
Тогда на страничке http://twister.orgfree.com/other/ возъми файл HyperLink.rar - набросал минут за 10...

[Watts[]n!]

Все, разобрался... Причем без использования класса Twister'a
Большое спасибо всем, кто откликнулся!

[Twister]

Watts[]n!
Там не класс, а контрол.
Советую свои лэйблы, все же, оформить как контрол - код будет эффективнее.