SetMaxCommBlockLengthISCL Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub TestSetMaxCommBlockLengthISCL ( )
   Dim nBlockLen As Integer
   LEADDICOMNet1.NetworkSecurityMode = LTDNCLib.DicomSecurityModes.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)
   MessageBox.Show("Negotiated communication block size is" & nBlockLen)
End Sub