SendData Example for VB.NET

'LEADDICOMNet1 is a predefined LEADDicomNet object
'LEADDICOM1 is a DICOM Dataset defined outside this method
'LEADDICOM2 is a DICOM Dataset defined outside this method
Private Sub TestSendData ()
   'send a command set, then a data set
   LEADDICOM2.InitCS(LTDICLib.DicomCommandSetConstants.COMMAND_C_STORE, True)
   LEADDICOM1.InitDS(LTDICLib.DicomClassConstants.DICOM_CLASS_CR_IMAGE_STORAGE, 0)
   'client is sending data
   LEADDICOMNet1.SendData(LEADDICOMNet1.hNet, 1, LEADDICOM2.hDicomDS, LEADDICOM1.hDicomDS)
End Sub