FillRgn frmTest.hDC, hrgn, hBrush - VB

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