1
Abrir Visual Basic 6.0
2
Escriba el siguiente código: Sub . MyText_MouseMove privada ( Button As Integer , Shift As Integer , X As Single , Y As Single ) MyText es el nombre del cuadro de texto que se va a hacer el mouseover
3
Escriba la siguiente línea de código: . MyText.MousePointer = vbHourGlassThis producirá el puntero del ratón del reloj de arena cuando el ratón Balón por encima del cuadro de texto MyText
4
Cierre la subrutina con la siguiente línea : . End código SubYou quisiera : Sub MyText_MouseMove privada ( Button As Integer , Shift As Integer , X As Single , Y As Single ) MyText.MousePointer = vbHourGlassEnd Sub