' This utility method connects the designer to various
' services it will use. 
Private Sub InitializeServices()

    ' Acquire a reference to DesignerActionService.
    Me.actionService = GetService(GetType(DesignerActionService))

    ' Acquire a reference to DesignerActionUIService.
    Me.actionUiService = GetService(GetType(DesignerActionUIService))

    ' Acquire a reference to IComponentChangeService.
    Me.changeService = GetService(GetType(IComponentChangeService))

    ' Hook the IComponentChangeService events.
    If (Me.changeService IsNot Nothing) Then
        AddHandler Me.changeService.ComponentChanged, AddressOf ChangeService_ComponentChanged

        AddHandler Me.changeService.ComponentAdded, AddressOf ChangeService_ComponentAdded

        AddHandler Me.changeService.ComponentRemoved, AddressOf changeService_ComponentRemoved
    End If

    ' Acquire a reference to ISelectionService.
    Me.selectionService = GetService(GetType(ISelectionService))

    ' Hook the SelectionChanged event.
    If (Me.selectionService IsNot Nothing) Then
        AddHandler Me.selectionService.SelectionChanged, AddressOf selectionService_SelectionChanged
    End If

    ' Acquire a reference to IDesignerEventService.
    Me.eventService = GetService(GetType(IDesignerEventService))

    If (Me.eventService IsNot Nothing) Then
        AddHandler Me.eventService.ActiveDesignerChanged, AddressOf eventService_ActiveDesignerChanged
    End If

    ' Acquire a reference to IDesignerHost.
    Me.host = GetService(GetType(IDesignerHost))

    ' Acquire a reference to IDesignerOptionService.
    Me.optionService = GetService(GetType(IDesignerOptionService))

    ' Acquire a reference to IEventBindingService.
    Me.eventBindingService = GetService(GetType(IEventBindingService))

    ' Acquire a reference to IExtenderListService.
    Me.listService = GetService(GetType(IExtenderListService))

    ' Acquire a reference to IReferenceService.
    Me.referenceService = GetService(GetType(IReferenceService))

    ' Acquire a reference to ITypeResolutionService.
    Me.typeResService = GetService(GetType(ITypeResolutionService))

    ' Acquire a reference to IComponentDiscoveryService.
    Me.componentDiscoveryService = GetService(GetType(IComponentDiscoveryService))

    ' Acquire a reference to IToolboxService.
    Me.toolboxService = GetService(GetType(IToolboxService))

    ' Acquire a reference to UndoEngine.
    Me.undoEng = GetService(GetType(UndoEngine))

    If (Me.undoEng IsNot Nothing) Then
        MessageBox.Show("UndoEngine")
    End If
End Sub