FillRgn frmTest.hDC, hrgn, hBrush - VB

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

frmTest.hDC... .hDC, что это за метод формы? Столкнулся с проблемой. Надо закрасить регион, созданный с помощью CreatePolygonRgn. Все дело в том, что рисую на Active X контроле, формы собственной у него нету. То есть и параметр этот я использовать не могу. Как область то закрасить? Вот код контрола:

Option Explicit
 
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As Any, _
ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
 
Private Declare Function CreateSolidBrush Lib "gdi32" _
(ByVal crColor As Long) As Long
 
Private Declare Function FillRgn Lib "gdi32.dll" (ByVal hDC As Long, ByVal hrgn As Long, ByVal hbrush As Long) As Long
Dim retval As Long
 
Type POINTAPI
X As Long
Y As Long
End Type
Dim pos(5) As POINTAPI, hbrush As Long, hrgn As Long, color As Long
Private Sub Draw_SevSegInd()
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
 
hrgn = CreatePolygonRgn(pos(0), 6, 1)
FillRgn frmTest.hDC, hrgn, hBrush
 
End Sub
 
Private Sub Change_Color()
cmnDial.ShowColor
End Sub

Private Sub Starter_Timer()
Draw_SevSegInd
'Change_Color
Starter.Enabled = False
End Sub

Решение задачи: «FillRgn frmTest.hDC, hrgn, hBrush»

textual
                            Листинг программы 
                        

                            pos(0).X = 200
pos(1).X = 300
pos(2).X = 310
pos(3).X = 300
pos(4).X = 200
pos(5).X = 190
pos(0).Y = 100
pos(1).Y = 100
pos(2).Y = 110
pos(3).Y = 120
pos(4).Y = 120
pos(5).Y = 110
                        