P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 08:15 AM Post subject: Show/Hide Mouse Cursor |
 |
|
Add two command buttons (Command1 , Command2) and add the following code :
| Code: | Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
Private Sub Command1_Click()
ShowCursor (True)
End Sub
Private Sub Command2_Click()
ShowCursor (False)
End Sub
Private Sub Form_Load()
Command1.Caption = "show"
Command2.Caption = "hide"
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
