Searching the Data Set for a Digital Signature Example for VB.NET

Sub FindSignature(ByRef objDS As LTDICLib.LEADDicomDS, ByRef sSignatureUID As String)
   ' Search the whole Data Set for the Digital Signature with the
   ' specified Digital Signature UID
   If objDS.FindSignature(sSignatureUID) = False Then
      MessageBox.Show("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 MessageBox.Show(sMsg, "Sample", MessageBoxButtons.YesNoCancel)
      Case DialogResult.Yes
         ' Refer to Examining a Digital Signature Example
         ' for the procedure ExamineSignature
         ExamineSignature(objDS, objDS.CurrentElement.hElement)
      Case DialogResult.No
         ' Delete the Digital Signature
         objDS.DeleteSignature()
   End Select
End Sub