hecked)
End Sub

Private Sub chkInfoTips_Click()
   lvwMain.InfoTips = (chkInfoTips.Value = Checked)
End Sub

Private Sub chkLabelEdit_Click()
   lvwMain.LabelEdit = (chkLabelEdit.Value = Checked)
End Sub

Private Sub chkMultiSelect_Click()
   lvwMain.MultiSelect = (chkMultiSelect.Value = Checked)
End Sub

Private Sub chkSubItemImages_Click()
Dim i As Long
   lvwMain.SubItemImages = (chkSubItemImages.Value = Checked)
   If chkSubItemImages.Value = Checked Then
      With lvwMain.ListItems
         For i = 1