"Can't find DLL entry point createPolygonRgn in gdi32.dll" - VB

Формулировка задачи:

Рисую семи-сегментный индикатор... Нарисовал 1 сегмент Line-ом, потом осознал, что мне потом понадобится менять цвет сегмента, нашел в интернете про API-функции. Решил рисовать с помощью createPolygonRgn, вылазит вот такая вот ошибка. Пользуюсь первый раз, почти уверен что сам где-то закосячил... Подскажите, где коня словил?

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
 
Private Declare Function createPolygonRgn Lib "gdi32.dll" (lpPoint As Any, _
ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
 
Type POINTAPI
x As Long
y As Long
End Type
 
Private Sub Draw_SevSegInd()
Dim pos(5) As POINTAPI
Dim segment As Long
pos(0).x = 1000
pos(1).x = 3000
pos(2).x = 3100
pos(3).x = 3000
pos(4).x = 1000
pos(5).x = 900
pos(0).y = 1000
pos(1).y = 1000
pos(2).y = 1100
pos(3).y = 1200
pos(4).y = 1200
pos(5).y = 1100
segment = createPolygonRgn(pos(0), 6, 1)
End Sub
 
Private Sub Change_Color()
cmnDial.ShowColor
End Sub
 
Private Sub Starter_Timer()
Draw_SevSegInd
'Change_Color
Starter.Enabled = False
End Sub

Решение задачи: «"Can't find DLL entry point createPolygonRgn in gdi32.dll"»

textual
                            Листинг программы 
                        
Private Declare Function CreatePolygonRgn Lib "gdi32.dll" (lpPoint As Any, _
ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long