Dim RQ As DicomCFindRequest
Dim RP As DicomCFindResponse
Dim CFind As DicomCFindRequest = DicomCFindRequest.CreatePatientQuery(patientId:=FPatientID)
'CFind.OnResponseReceived(RQ, RP)
Debug.WriteLine(">>>>> " & CFind.HasDataset)
Dim DClient As New DicomClient
DClient.AddRequest(CFind)
DClient.Send(host, port, False, callingAE, calledAE)
Debug.WriteLine(" >>>>>>>>>> " & CFind.Dataset.Get(Of String)(DicomTag.PatientID))
Debug.WriteLine(" >>>>>>>>> " & CFind.Dataset.Get(Of String)(DicomTag.PatientName))