[Mohamad Anan]

كود :

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Load()
    ShowCursor False 'hide cursor
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ShowCursor True 'show cursor
End Sub