Option Explicit

#If Win16 Then
    Type POINTAPI
      x As Integer
      y As Integer
    End Type

    Type RECT
      left As Integer
      top As Integer
      right As Integer
      bottom As Integer
    End Type

    Private Declare Sub ClipCursor Lib "User" (lpRect As Any)

    Private Declare Sub GetClientRect Lib "User" (ByVal hWnd _
            As Integer, lpRect As Any)

    Private Declare Sub ClientToScreen Lib "User" (ByVal hWnd _
            As Integer, _
            lpPoint As POINTAPI)

    Private Declare Function GetDesktopWindow Lib "User" () _
            As Integer

#Else
    Type POINTAPI
      x As Long
      y As Long
    End Type

    Type RECT
      left As Long
      top As Long
      right As Long
      bottom As Long
    End Type

    Private Declare Function ClipCursor Lib "user32" (lpRect _
            As Any) As Long

    Private Declare Function GetClientRect Lib "user32" (ByVal _
            hWnd As Long, lpRect As RECT) As Long

    Private Declare Function ClientToScreen Lib "user32" (ByVal _
            hWnd As Long, lpPoint As POINTAPI) As Long

    Private Declare Function GetDesktopWindow Lib "user32" () _
            As Long
#End If

Private Function GetScreenRect(Obj As Object) As RECT
  Dim Pt As POINTAPI, Rct As RECT

  GetClientRect Obj.hWnd, Rct

  Pt.x = Rct.left
  Pt.y = Rct.top
  ClientToScreen Obj.hWnd, Pt
  GetScreenRect.left = Pt.x
  GetScreenRect.top = Pt.y

  Pt.x = Rct.right
  Pt.y = Rct.bottom
  ClientToScreen Obj.hWnd, Pt
  GetScreenRect.right = Pt.x
  GetScreenRect.bottom = Pt.y
End Function

Sub SetClip(Obj As Object, OK)
  Dim Rct As RECT

  Select Case OK
    Case True
      Rct = GetScreenRect(Obj)
      ClipCursor Rct
    Case Else
      GetClientRect GetDesktopWindow(), Rct
      ClipCursor Rct
  End Select
End Sub

Option Explicit

Private OK As Boolean

Private Sub Command1_Click(index As Integer)
  Select Case index
    Case 1
      OK = OK Xor -1
      SetClip Command1(1), OK
    Case Else
      Unload Me
      End
  End Select
End Sub

Private Sub Form_Click()
  OK = OK Xor -1
  SetClip Me, OK
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode _
        As Integer)
  SetClip Me, False
End Sub

Private Sub Label1_Click()
  Form_Click
End Sub

Private Sub Picture1_Click()
  OK = OK Xor -1
  SetClip Picture1, OK
End Sub