→→→光るラベル

Private Sub Label_MouseEnter(...
            Label1.Backcolor = color.LawnGreen
End Sub
Private Sub Label1_MouseLeave(....
 　　　　　Label1.BackColor = Color.Black
            Label1.Text         = "Mouse Test"
End Sub
Private Sub Label1_MouseHover(...
            Label1.Text = "●HOVER●"
End Sub