NetNonSecureSendISCL Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetNonSecureSendISCL(ByVal hNet As Integer, ByVal nError As Integer, ByVal nType As Integer, ByVal nLength As Integer) Handles LEADDICOMNet1.NetNonSecureSendISCL
   If nError = LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS Then
      MessageBox.Show("Data was successfully received")
   End If
End Sub