bPushed Or
             bChecked, bEnabled, bInFocus
         Else
            bDoDefault = True
         End If
      Else
         bDoDefault = True
      End If
   End If
End Sub

Private Sub optButton_Click(Index As Integer)
   lblOptionInfo.Caption = Index &amp; " selected."
End Sub

Private Sub optStyle_Click(Index As Integer)
Dim i As Long
   Select Case Index
   Case 0
      For i = 0 To 2
         m_cODBtn.SetBorderStyle optButton(i), eodBorderThin
         m_cODBtn.RedrawButton optButton(i)
      