closing a info(?) popup

[asc4john]

In Access I am using a form to automatically generate some Visio
drawings. Part of the code ungroups the Visio shape dropped onto a
page. When the shape is ungrouped a popup appears saying "This action
will sever the object's link with it's master", "OK", "Cancel". This
is fine, I don't care. But I have to click the OK button. How do I,
using code "click" the OK button.

 

[asc4john]

Sorry found it
appVisio.AlertResponse = 1
objShape.Ungroup
appVisio.AlertResponse = 0

I suppose I should save the current setting and restore it later.