Shoutbox

code:

---

Declare Function ShowCursor& Lib "user32" _
    (ByVal bShow As Long)
    'Add this code to Command1.

Private Sub Command1_Click()

    ShowCursor (bShow = True)
End Sub

'Add this to Command2.

Private Sub Command2_Click()

    ShowCursor (bShow = False)
End Sub

---