ked) Then
        pCalculateWeight
    End If
End Sub

Private Sub cmdCancel_Click()
    m_bCancel = True
    Unload Me
End Sub

Private Sub cmdOK_Click()
Dim i As Long, j As Long
Dim iIndex As Long
Dim iMaxI As Long, iMaxJ As Long, iC As Long
Dim iMax As Long
Dim iSIze As Long
Dim bAllZero As Boolean

    m_bCancel = False
    ' Evaluate the size required for this filter:
    bAllZero = True
    For i = 0 To 6
        For j = 0 To 6
            If Val(txtValue(iIndex).Text) &lt;&gt; 0 Then
                