Flickering Labels on Mouse Over

[Sharid]

Hi

I am having an issue with flickering labels on userform, when i do a mouse over. Apart from the flicker they work fine. . I am using labels as buttons as the look better than the vba userform buttons and because, when I tried to you an image as a button, the picture would not display correct, the quality would reduce, but it was fine in a label.

The labels start to flicker when I move the mouse over them, I was looking at this, Mr Excel, but I am not 100% sure how to change it for my labels. Please could someone advise.

Private Sub MainMenuPageButton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'MainMenuPageButton border change green on mouse over
     MainMenuPageButton.BorderColor = 8435998
            'Grey Borders for all other labels
             SearchButton.BorderColor = -2147483627
             WebBrowserButton.BorderColor = -2147483627
             SaveFileButton.BorderColor = -2147483627
            EmailButton.BorderColor = -2147483627
            LoadFileButton.BorderColor = -2147483627
            Sheet2Button.BorderColor = -2147483627
            Sheet3Button.BorderColor = -2147483627
           Sheet12Button.BorderColor = -2147483627
End Sub

Thanks in advance.

 

[Sharid]

Hi

I have found this on the forum as another possible option link may need modifications, but I am not too sure what they mean by grouping and label group, could some please advise. And also where this code needs to be pasted, is it in the userform or in the labels?

I have listed the code from the link below, it was done by MickG

Option Explicit
Public WithEvents LabelGroup As MSForms.Label

Private Sub LabelGroup_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Ctrl As MSForms.Control

For Each Ctrl In LabelGroup.Parent.Parent.Controls
  DoEvents
   If X > 5 And X < Ctrl.Width - 5 Then
      If TypeName(Ctrl) = "Label" Then
        If Ctrl.name = LabelGroup.name Then
            Ctrl.BackColor = &H808000
        Else
            Ctrl.BackColor = LabelGroup.Parent.Parent.BackColor
        End If
      End If
    End If
Next Ctrl
End Sub

 

[Sharid]

Hi

Can some one please help me on this as I am still stick on the flickering. I have REPLACED the labels with images now and improved their quality, however I still can not get rid on the screen flickering on mouse over event. I think the above code from MickG might work but I am not sure of this "LabelGroup.Parent.Parent.Controls"

I have slightly changed the code to an IF statement

Private Sub MainMenuPageButton_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'MainMenuPageButton border change green on mouse over

If MainMenuPageButton.BorderColor <> 8435998 Then
     MainMenuPageButton.BorderColor = 8435998
           
 'Grey Borders for all other labels
             SearchButton.BorderColor = -2147483627
             WebBrowserButton.BorderColor = -2147483627
             SaveFileButton.BorderColor = -2147483627
            EmailButton.BorderColor = -2147483627
            LoadFileButton.BorderColor = -2147483627
            Sheet2Button.BorderColor = -2147483627
            Sheet3Button.BorderColor = -2147483627
           Sheet12Button.BorderColor = -2147483627
End if
End Sub