SetMaxCommBlockLengthISCL Example for Visual Basic

   Dim nBlockLen As Long
   LEADDICOMNet1.NetworkSecurityMode = DICOM_SECURE_ISCL
   LEADDICOMNet1.StartUp
   LEADDICOMNet1.SetMaxCommBlockLengthISCL LEADDICOMNet1.hNet, 8160
   ' size of the blocks sent to network layer will be 8192 bytes (a 32-byte header is added)
   ' other initializations...
   LEADDICOMNet1.Connect "", 0, "127.0.0.1", 2761
   'connect to a server running on local computer at port 2761

   nBlockLen = LEADDICOMNet1.GetCommBlockLengthISCL(LEADDICOMNet1.hNet)
   MsgBox "Negotiated communication block size is" & nBlockLen