menu et sous menu avec survol

bonjour
je veux creer un beau menu (changement de couleur en cas de survol) en vb.net 2008, comment faire.

Code:

1
2
3
4
5
6
    Private Sub FichierToolStripMenuItem_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles FichierToolStripMenuItem.MouseHover
        FichierToolStripMenuItem.ForeColor = Color.Black
    End Sub
    Private Sub FichierToolStripMenuItem_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles FichierToolStripMenuItem.MouseLeave
        FichierToolStripMenuItem.ForeColor = Color.Gainsboro
    End Sub

merci d'avance