      txtValue_Change CInt(i)
                Else
                    txtValue(i) = "1"
                End If
            Next i
            txtWeight = "1"
            If (cboBaseOn.ItemData(cboBaseOn.ListIndex) &gt; -1) Then
                m_cI.FilterType = cboBaseOn.ItemData(cboBaseOn.ListIndex)
                lSize = m_cI.FilterArraySize
                iIndex = 3 - lSize \ 2 + ((3 - lSize \ 2)) * 7
                For i = -lSize \ 2 To lSize \ 2
                    For j = -lSize \ 2 To lSize \ 2
 