'Declaration
Sub SendCStoreRequest( _
ByVal As DicomRequest, _
ByVal As Byte, _
ByVal As Integer, _
ByVal As String, _
ByVal As String, _
ByVal As DicomCommandPriorityType, _
ByVal As String, _
ByVal As Integer, _
ByVal As DicomDataSet _
)
'Usage
Dim instance As IDicomRequest
Dim requestInfo As DicomRequest
Dim presentationID As Byte
Dim messageID As Integer
Dim affectedClass As String
Dim instance As String
Dim priority As DicomCommandPriorityType
Dim moveAE As String
Dim moveMessageID As Integer
Dim dataSet As DicomDataSet
instance.SendCStoreRequest(requestInfo, presentationID, messageID, affectedClass, instance, priority, moveAE, moveMessageID, dataSet)