NetNonSecureReceivedISCL Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
Private Sub LEADDICOMNet1_NetNonSecureReceivedISCL(ByVal hNet As Integer, ByVal nError As Integer, ByRef vBuffer As Object, ByVal nLength As Integer) Handles LEADDICOMNet1.NetNonSecureReceivedISCL
   Dim DataBuffer As Byte() = vBuffer

   If nError = LTDicomKernelLib.DicomErrorCodes.DICOM_SUCCESS Then
      MessageBox.Show("1st byte of data = " & DataBuffer(0) & ", last byte of data = " & DataBuffer(nLength - 1))
   End If
End Sub