Youc can change the Screen.MousePointer property:

Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Screen.MousePointer = vbDefault
End Sub


Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Screen.MousePointer = vbUpArrow
End Sub
Look in help for MousePointer property. IT will tell you what standard cursors that are available.


Regards,

------------------

Serge

Software Developer
[email protected]
[email protected]