'Declaration
Public Sub SendCMoveResponse( _
ByVal As Byte, _
ByVal As Integer, _
ByVal As String, _
ByVal As DicomCommandStatusType, _
ByVal remaining As Integer, _
ByVal As Integer, _
ByVal As Integer, _
ByVal As Integer, _
ByVal As DicomDataSet, _
ByVal As String _
)
'Usage
Dim instance As ClientSession
Dim presentationID As Byte
Dim messageID As Integer
Dim abstractClass As String
Dim status As DicomCommandStatusType
Dim remaining As Integer
Dim completed As Integer
Dim failed As Integer
Dim warning As Integer
Dim responseDataset As DicomDataSet
Dim descriptionMessage As String
instance.SendCMoveResponse(presentationID, messageID, abstractClass, status, remaining, completed, failed, warning, responseDataset, descriptionMessage)