   m_cODBtn.SetBorderStyle chkTest(i), eodBorderThin
         m_cODBtn.RedrawButton chkTest(i)
      Next
   Case 1
      For i = 0 To 2
         m_cODBtn.RedrawButton optButton(i)
         m_cODBtn.RedrawButton chkTest(i)
      Next i
   Case 2
      For i = 0 To 2
         m_cODBtn.SetBorderStyle optButton(i), eodBorderThick
         m_cODBtn.RedrawButton optButton(i)
         m_cODBtn.SetBorderStyle chkTest(i), eodBorderThick
         m_cODBtn.RedrawButton chkTest(i)
      Next
   End Select
End Sub
</pr