' For complete examples and data files, please go to https://github.com/groupdocs-watermark/GroupDocs.Watermark-for-.NET
Using doc As DiagramDocument = Document.Load(Of DiagramDocument)(Utilities.MapSourceFilePath(FilePath))
Dim shape As DiagramShape = doc.Pages(0).Shapes(0)
For i As Integer = shape.Hyperlinks.Count - 1 To 0 Step -1
If shape.Hyperlinks(i).Address.Contains("http://someurl.com") Then
shape.Hyperlinks.RemoveAt(i)
End If
Next
doc.Save()