Delete shapes via droppoint

Hello,

I would like to delete a group of shapes via the corresponding Droppoint and am using the following code to do so:

Sub DeleteDroppoint()
Dim oSheet As Sheet
Dim aParams() As Aucotec.AucExecuteSheetRecord
Dim sDroppoint As String

Set oSheet = Selection(1)
sDroppoint = oSheet.Droppoints(1).Comment
Call oSheet.Open(aucSheetOpenAutosave)
ReDim aParams(1 To 3)
aParams(1).qual = aucOpExecSheetDeleteSymbolDP
aParams(2).qual = aucArgExecSheetRef2Sheet
aParams(2).Val = oSheet.ID
aParams(3).qual = aucArgExecSheetDropPoint
aParams(3).Val = sDroppoint
Call Utils.ExecuteSheetOperation(oSheet, aParams)
Call oSheet.Close
End Sub


Unfortunately, nothing happens.
Who can help?
Many thanks.