Visual Basic - Problema con Uso de PtInRegion y CreatePolygonRgn

Tengo el siguiente codigo y no funciona me prodrian ayudar. Gracias.
El codigo se ejecuta dentro del evento MouseMove en un Picture.
Ejecutar el codigo no falla, pero tampoco realiza bien la operacion.

Dim curvePoints(0 To 6) As Point
Dim hrgn AsLong

x1 = sender.MousePosition.X
y1 = sender.MousePosition.Y

curvePoints(0).X = 0 : curvePoints(0).Y = 0
curvePoints(1).X = 100 : curvePoints(1).Y = 25
curvePoints(2).X = 200 : curvePoints(2).Y = 5
curvePoints(3).X = 250 : curvePoints(3).Y = 50
curvePoints(4).X = 300 : curvePoints(4).Y = 100
curvePoints(5).X = 350 : curvePoints(5).Y = 200
curvePoints(6).X = 250 : curvePoints(6).Y = 250

hrgn = CreatePolygonRgn(curvePoints(0), UBound(curvePoints), 1)
If PtInRegion(hrgn, x1, y1) <> 0 Then
TextBox1.Text = "A D E N T R O !!!"
Else
TextBox1.Text = "Estoy Afuera"
EndIf

Y que es lo que deberia hacer o deseas hacer??