Function
        End If
    Next i
    
    m_svalue = bOut()
    pbParseByteArray = True
    
End Function

Private Sub Form_Load()
    lblParent.Caption = m_sParent
    txtValue.Text = m_svalue
    m_bLoaded = True
    ItemName = m_sName
    m_bCancel = True
    If (m_eMode = eUpdate) Then
        If (m_iType = 0) Then
            optType(0).Value = True
            optType(1).Enabled = False
            txtName.Locked = False
        Else
            optType(1).Value = True
            optType(0).Enabled