Public Declare Function PtInRegion Lib "gdi32" Alias "PtInRegion" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long

Option Explicit

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function CreateHatchBrush Lib "gdi32" (ByVal nIndex As Long, ByVal crColor As Long) As Long
Private Declare Function FrameRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Dim P( 4 ) As POINTAPI
Dim Rgn As Long
'

Private Sub Form_Load()
Dim hHbr As Long

Me.ScaleMode = vbPixels
Me.AutoRedraw = True

'создаём полигон
P( 0 ).X =  5 : P( 0 ).Y =  5 
P( 1 ).X =  25 : P( 1 ).Y =  5 
P( 2 ).X =  25 : P( 2 ).Y =  25 
P( 3 ).X =  5 : P( 3 ).Y =  25 
P( 4 ).X =  5 : P( 4 ).Y =  5 
Rgn = CreatePolygonRgn(P( 0 ), UBound(P) +  1 ,  1 )

'отрисовываем
Form1.Cls
'hHbr = CreateHatchBrush(3, vbRed)  'штрих-заливка
hHbr = CreateSolidBrush(vbRed)  'сплошная заливка области
FrameRgn Me.hdc, Rgn, hHbr, Me.ScaleHeight, Me.ScaleWidth
'удаляем объект
DeleteObject hHbr


End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'проверяем координаты точки
    If PtInRegion(Rgn, X, Y) Then
        MsgBox "точка внутри области", vbExclamation
    Else
        MsgBox "точка вне области", vbInformation
    End If
End Sub

Option Explicit
Private Enum HT
 htNone =  0 
 htRectangle =  16 
 htTriangle =  32 
 htCircle =  48 
 htLine =  64 
 htArc =  80 
 htCurve =  96 
End Enum

Private Type POINTAPI
   X As Long
   Y As Long
End Type

Private Declare Function PolyBezier Lib "gdi32.dll" (ByVal hdc As Long, _
               lppt As POINTAPI, ByVal cPoints As Long) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim test As Long, cap As String
 test = Picture1.Point(X, Y)
 Select Case test
 Case HT.htNone: cap = ""
 Case HT.htArc: cap = "Arc"
 Case HT.htCircle: cap = "Circle"
 Case HT.htCurve: cap = "Curve"
 Case HT.htLine: cap = "Line"
 Case HT.htRectangle: cap = "Rectangle"
 Case HT.htTriangle: cap = "Triangle"
 Case Else: cap = "OUT OF RANGE"
 End Select
 If Me.Caption <> cap Then 
     Me.Caption = cap
     Debug.Print cap
 End If
End Sub

Private Sub Form_Load()
 Me.AutoRedraw = True
 Me.ScaleMode = vbPixels
 Picture1.ScaleMode = vbPixels
 Picture1.AutoRedraw = True
 Picture1.BorderStyle =  0 
 Picture1.BackColor = vbBlack
 Picture1.Move  0 ,  210 ,  315 ,  210 
 Picture1.FillStyle = vbSolid
 Picture1.Visible = False
 DrawRect
 DrawTri
 DrawCircle
 Picture1.DrawWidth =  3 
 DrawLine
 DrawArc
 DrawCurve
End Sub

Sub DrawCurve()
Dim Polys( 0  To  6 ) As POINTAPI
 Polys( 0 ).X =  230 : Polys( 0 ).Y =  120 
 Polys( 1 ).X =  300 : Polys( 1 ).Y =  120 
 Polys( 2 ).X =  250 : Polys( 2 ).Y =  150 
 Polys( 3 ).X =  230 : Polys( 3 ).Y =  200 
 Polys( 4 ).X =  250 : Polys( 4 ).Y =  220 
 Polys( 5 ).X =  250 : Polys( 5 ).Y =  200 
 Polys( 6 ).X =  310 : Polys( 6 ).Y =  150 
 PolyBezier Me.hdc, Polys( 0 ),  7 
 Picture1.ForeColor = htCurve
 PolyBezier Picture1.hdc, Polys( 0 ),  7 
End Sub

Sub DrawArc()
 Me.Circle ( 160 ,  160 ),  40 , vbBlack, Atn( 1 ) *  2 , Atn( 1 ) *  6 
 Picture1.Circle ( 160 ,  160 ),  40 , htArc, Atn( 1 ) *  2 , Atn( 1 ) *  6 
End Sub

Sub DrawLine()
 Me.Line ( 90 ,  120 )-( 10 ,  200 )
 Me.Line -( 90 ,  200 )
 Picture1.Line ( 90 ,  120 )-( 10 ,  200 ), htLine
 Picture1.Line -( 90 ,  200 ), htLine
End Sub

Sub DrawCircle()
 Me.Circle ( 270 ,  50 ),  40 
 Picture1.FillColor = htCircle
 Picture1.Circle ( 270 ,  50 ),  40 , htCircle
End Sub

Sub DrawTri()
Dim ln As Single, Y As Long
 Me.Line ( 170 ,  10 )-( 120 ,  90 )
 Me.Line -( 220 ,  90 )
 Me.Line -( 170 ,  10 )
 ln =  0 . 5 
 For Y =  10  To  90 
   Picture1.Line ( 171  - ln, Y)-( 170  + ln, Y), HT.htTriangle
   ln = ln +  0 . 63 
 Next
End Sub

Sub DrawRect()
 Me.Line ( 10 ,  10 )-( 70 ,  10 )
 Me.Line -( 70 ,  30 )
 Me.Line -( 90 ,  30 )
 Me.Line -( 90 ,  90 )
 Me.Line -( 10 ,  90 )
 Me.Line -( 10 ,  10 )
 Picture1.Line ( 10 ,  10 )-( 70 ,  90 ), htRectangle, BF
 Picture1.Line ( 10 ,  30 )-( 90 ,  90 ), htRectangle, BF
End Sub