his.MultiSelect = bState
   Case 1
      grdThis.RowMode = bState
   Case 2
      grdThis.GridLines = bState
      chkOptions(3).Enabled = bState
      chkOptions(4).Enabled = bState
      chkOptions(5).Enabled = bState
   Case 3
      grdThis.NoHorizontalGridLines = Not (bState)
   Case 4
      grdThis.NoVerticalGridLines = Not (bState)
   Case 5
      If (bState) Then
         grdThis.GridLineMode = ecgGridFillControl
      Else
         grdThis.GridLineMode = ecgGridStandard
      End If
   End Select
  