Shoutbox

code:

---

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

Public Sub ButtonName_Click()
    ShowCursor False
End Sub

Public Sub ButtonName_Click()
    ShowCursor True
End Sub

---

When testing use the Tab button to find the other button because it would be hard to click it without being able to see the mouse.