Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 _
  As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
Private Declare Function SelectClipRgn Lib "gdi32" (ByVal hDC As Long, ByVal _
hRgn As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hDC As Long, ByVal x1 As _
Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
 
Dim dc As Long, rn As Long
 
dc = Picture1.HDC
rn = CreateRectRgn(60, 50, 150, 150)
Call SelectClipRgn(dc, rn)
Call Rectangle(dc, 50, 50, 150, 150)