|
' ************************************************************
' ƒJ[ƒ\ƒ‹‚Ì»ŽžŒv‚Ì ON ‚Æ OFF
' ************************************************************
Public Function ISWaitCursor(objForm As Form, bFlg As Boolean)
If bFlg Then
objForm.MousePointer = 11
Else
objForm.MousePointer = 0
End If
objForm.Refresh
End Function
| |