'Declaration
Sub OnReceiveCFindResponse( _
ByVal As Byte, _
ByVal As UShort, _
ByVal As String, _
ByVal As DicomCommandStatusType, _
ByVal As DicomDataSet, _
ByVal As DicomNet _
)
'Usage
Dim instance As IDicomEvents
Dim presentationID As Byte
Dim messageID As UShort
Dim affectedClass As String
Dim status As DicomCommandStatusType
Dim dataSet As DicomDataSet
Dim net As DicomNet
instance.OnReceiveCFindResponse(presentationID, messageID, affectedClass, status, dataSet, net)