Mira este ejemplillo:
Private Sub Label1_MouseMove(button As Integer, shift As _
Integer, x As Single, y As Single)
Label1.ForeColor = vbBlue
End Sub
Private Sub Form_MouseMove(button As Integer, shift As _
Integer, x As Single, y As Single)
Label1.ForeColor = vbBlack
End Sub
Por si tienes dudas lo he sacado de aqui:
- http://www.geocities.com/alpha_productions2/vb_code1.htm?20078#OnMouseOverScript
Y aqui otro ejemplo pero con imágenes:
- MouseOver con imágenes
Y más ejemplos:
http://www.codeguru.com/vb/controls/vb_othctrl/ocxcontrols/article.php/c7079/
http://articles.techrepublic.com.com/5100-3513-5648718.html
Un saludooo
Private Sub Label1_MouseMove(button As Integer, shift As _
Integer, x As Single, y As Single)
Label1.ForeColor = vbBlue
End Sub
Private Sub Form_MouseMove(button As Integer, shift As _
Integer, x As Single, y As Single)
Label1.ForeColor = vbBlack
End Sub
Por si tienes dudas lo he sacado de aqui:
- http://www.geocities.com/alpha_productions2/vb_code1.htm?20078#OnMouseOverScript
Y aqui otro ejemplo pero con imágenes:
- MouseOver con imágenes
Y más ejemplos:
http://www.codeguru.com/vb/controls/vb_othctrl/ocxcontrols/article.php/c7079/
http://articles.techrepublic.com.com/5100-3513-5648718.html
Un saludooo