IsMaxLengthEnabled Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestIsMaxLengthEnabled ( )
   Dim lLen As Integer

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