                       txtValue(iIndex) = m_cI.FilterValue(i, j)
                        iIndex = iIndex + 1
                    Next j
                    iIndex = iIndex + 7 - lSize
                Next i
                txtWeight = m_cI.FilterWeight
            End If
        End If
    End If
End Sub

Private Sub cboName_Click()
    If (cboName.ListIndex &gt; -1) Then
        pLoadSavedFilter cboName.ItemData(cboName.ListIndex)
    End If
End Sub

Private Sub chkAuto_Click()
    If (chkAuto.Value = Chec