 chkHotTrack_Click()
   grdThis.HotTrack = (chkHotTrack.Value = vbChecked)
End Sub

''' &lt;summary&gt;
''' Toggles whether the selected cell's text is italic or not
''' &lt;/summary&gt;
Private Sub chkItalic_Click()
   chkBold_Click
End Sub

''' &lt;summary&gt;
''' Toggles various multi-select, row mode or grid line options
''' &lt;/summary&gt;
Private Sub chkOptions_Click(Index As Integer)
Dim bState As Boolean
   
   bState = (chkOptions(Index).Value = vbChecked)
   Select Case Index
   Case 0
      grdT