Comment faire pour modifier le pointeur de souris dans Visual Basic 6

Instructions

1. Ouvrez Visual Basic 6.0.

2. 
   
   
   

   Tapez le code suivant:
   Private Sub MyText_MouseMove (Bouton As Integer, Maj As Integer, X As Single, Y As Single)
   MyText est le nom de la zone de texte que vous ferez le survol de la souris.

3. 
   
   
   

   Tapez la ligne de code suivante:
   MyText.MousePointer = vbHourglass
   Ceci va produire le pointeur de la souris en sablier lorsque la souris passe sur la zone de texte MyText.

4. Fermez le sous-programme avec la ligne suivante:
   End Sub
   Vous Code voudrais:
   Private Sub MyText_MouseMove (Bouton As Integer, Maj As Integer, X As Single, Y As Single)
   MyText.MousePointer = vbHourglass
   End Sub