NetNonSecureSendISCL Example for Visual Basic

Private Sub LEADDICOMNet1_NetNonSecureSendISCL (ByVal hNet As Long, ByVal nError As Long, ByVal nType As Long, ByVal nLength As Long)
  If nError = DICOM_SUCCESS Then
      MsgBox "Data was successfully received"
   End If
End Sub