NetNonSecureReceivedISCL Example for Visual Basic

Private Sub LEADDICOMNet1_NetNonSecureReceivedISCL (ByVal hNet As Long, ByVal nError As Long, vBuffer As Variant, ByVal nLength As Long)
  If nError = DICOM_SUCCESS Then
      MsgBox "1st byte of data = " & vBuffer(0) & ", last byte of data = " & vBuffer(nLength - 1)
   End If
End Sub