b

Public Property Get ImageProcess() As cImageProcessDIB
    Set ImageProcess = m_cI
End Property

Public Property Get Cancelled() As Boolean
    Cancelled = m_bCancel
End Property

Private Sub cboBaseOn_Click()
Dim i As Long, j As Long
Dim iIndex As Long
Dim lSize As Long

    If (cboBaseOn.ListIndex &lt;&gt; -1) Then
        If (cboBaseOn.ItemData(cboBaseOn.ListIndex) &lt;&gt; -1) Then
            For i = 0 To 48
                If (i &lt;&gt; 24) Then
                    txtValue(i) = "0"
              