lse
      sMsg = "None selected"
   End If
   lblCheckInfo.Caption = sMsg
End Sub

Private Sub cmdNormal_Click()
   MsgBox "Clicked Save.", vbInformation
End Sub

Private Sub cmdPrint_Click()
   MsgBox "Clicked Print.", vbInformation
End Sub

Private Sub cmdStandard_Click(Index As Integer)
   MsgBox "Clicked Simple Standard Button Index " &amp; Index, vbInformation
End Sub

Private Sub Form_Load()
Dim i As Long
   Set m_cODBtn = New cOwnerDrawButton
   m_cODBtn.Attach Me
   For i = eodClose To eodSizeBox
  