IsMaxLengthEnabled Example for Visual Basic

    Dim lLen As Long
    
    'is max len enabled?
    If (LEADDICOMNet1.IsMaxLengthEnabled (LEADDICOMNet1.hPDU) = True) Then
        'disable it
        'display old value
        lLen = LEADDICOMNet1.GetMaxLength (LEADDICOMNet1.hPDU)
        MsgBox CStr(lLen)
        LEADDICOMNet1.SetMaxLength LEADDICOMNet1.hPDU, False, lLen
    Else
        'enable it
        LEADDICOMNet1.SetMaxLength LEADDICOMNet1.hPDU, True, 8
    End If