'Put this public declaration in module section Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long 'Set command1.caption to "Hide Cursor" and Write down this code in the form Private Sub Command1_Click() If Command1.Caption = "Hide Cursor" Then t& = ShowCursor(0&) Command1.Caption = "Show Cursor" Else t& = ShowCursor(1&) Command1.Caption = "Hide Cursor" End If End Sub