alterando a cor do Label quando o mouse passar sobre o label

[ℛiqu∊ 13]

Isso,dá aparencia de um link:

 

Private Sub Form_MouseMove(Button As Integer,

Label1.ForeColor = &H80000012

End Sub

 

Private Sub Label1_MouseMove(Button As Integer,

Label1.ForeColor = &HFF&

End Sub

 

Roßerto