Public Overloads Overrides Property Site() As ISite
            Get
                Dim asite As ISite = MyBase.Site
                If asite IsNot Nothing AndAlso asite.DesignMode Then
                    Dim comp As IContainer = asite.Container
                    If comp IsNot Nothing Then
                        Dim host As IDesignerHost = TryCast(comp, IDesignerHost)
                        If host IsNot Nothing Then
                            Dim designer As IDesigner = host.GetDesigner( _
                              Site.Component)
                            If designer IsNot Nothing AndAlso Not _
                            designer.Verbs.Contains(insPage) Then
                                designer.Verbs.Add(insPage)
                            End If
                        End If
                    End If
                End If
                Return asite
            End Get
            Set(ByVal value As ISite)
                MyBase.Site = value
            End Set
        End Property

Salzburger