Guides always on top

[RzB]

Is there some way I can make Guides always appear on top?

I have tried to create a Macro, so that I can do it quickly, using the
Create Macro facility but it only selects the guides that I have currently on
the page...See below...

Sub Macro2()
' Keyboard Shortcut: Ctrl+Q
'

Dim vsoSelection1 As Visio.Selection
Set vsoSelection1 =
Application.ActiveWindow.Page.CreateSelection(visSelTypeByType,
visSelModeSkipSuper, visTypeSelGuide)
Application.ActiveWindow.Selection = vsoSelection1

ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(20),
visSelect
Application.ActiveWindow.Selection.BringToFront

End Sub

I think I need to replace the

ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(20),
visSelect

line with something that will select all the guides on the page.

Any help would be most appreciated,
Roy