Searching the Data Set for a Digital Signature Example for Visual Basic

Sub FindSignature(objDS As LEADDicomDS, sSignatureUID As String)
   ' Search the whole Data Set for the Digital Signature with the
   ' specified Digital Signature UID
   If objDS.FindSignature (sSignatureUID) = False Then
      MsgBox "The Digital Signature was not found.", , "Sample"
      Exit Sub
   End If
   
   Dim sMsg As String
   sMsg = "The Digital Signature was found." & vbNewLine & _
          "Press Yes to examine it or No to delete it."
          
   Select Case MsgBox(sMsg, vbYesNoCancel, "Sample")
   Case vbYes
      ' Refer to Examining a Digital Signature Example for Visual Basic
      ' for the procedure ExamineSignature
      ExamineSignature objDS, objDS.CurrentElement.hElement
      
   Case vbNo
      ' Delete the Digital Signature
      objDS.DeleteSignature
   End Select
End Sub