userformdaki menülerin renklenmesi hk

[chakistes]

merhaba arkadaşlar ekte örnekte görüldüğü gibi görsel olarak farklı 3 adet menü hazırladım ve userform içine 3 label içine yerleştirdim ama üzerine gelince renklenmesini yapamadım bu konuda yardımcı olabilirmisiniz.

 

[Muzaffer Ali]

Merhaba.

Labellere fotoğraf eklediğiniz için olmuyor.

Yeni bir Label ekleyin aşağıdaki gibi yapın.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label2.BackColor = &H80000006
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Label2.BackColor = vbRed
End Sub

 

[chakistes]

bu tarz kodlar denedim fakat farklı menü çalışması yaptığım için olmadı başka bir yöntem varmıdır çünkü kendi içinde menüleri sade olduğu için değiştirmek istiyorum.