How can I enable all Pages of a Multipage Control it a checkbox = True, and
disable pages it the checkbox = False?

Sub EnablePages ()

Dim myPages as Collection
Dim ctrl as Control

'all pages in multipage paint section
Set myPages = New Collection
With myPages
.Add pgColor1
.Add pgColor2
.Add pgColor3
.Add pgColor4
.Add pgColor5
.Add pgColor6
End With

For Each ctrl In myPages
ctrl.Enabled = chkPaint.Value
Next ctrl

End Sub