ilterBar.Value = Checked)
End Sub

Private Sub chkHotTrack_Click()
   hdrColumns.HotTrack = (chkHotTrack.Value = Checked)
End Sub

Private Sub cmdDelete_Click()
   If (cboColumn.ListIndex &lt; 0) Then
      MsgBox "Please choose a column", vbExclamation
   Else
      If (vbYes = MsgBox("Are you sure you want to delete this column?",
       vbYesNo Or vbQuestion)) Then
         hdrColumns.RemoveColumn cboColumn.ItemData(cboColumn.ListIndex)
         BuildLists
      End If
   End If
End Sub

Private Sub cmdR