 As Long) As
 Boolean
   IOwnerDrawButton_DoOwnerDraw = True
End Property

Private Sub IOwnerDrawButton_DrawItem(ByVal lHWnd As Long, ByVal lHDC As Long,
 ByRef lLeft As Long, ByRef lTop As Long, ByRef lRight As Long, ByRef lBottom
 As Long, ByVal bPushed As Boolean, ByVal bChecked As Boolean, ByVal bEnabled
 As Boolean, ByVal bInFocus As Boolean, ByRef bDoDefault As Boolean)
Dim ctl As Control
   If (lHWnd = cmdNormal.hwnd) Then
      InitCustomDrawButton ilsIcons, 3, picDemo.hdc, cmdNormal.Caption
      D