'' Called when an object in the hierarchy pane is activated.
Protected Overrides Sub OnActivated(ByVal initialActivation As Boolean)
MyBase.OnActivated(initialActivation)
If initialActivation Then
Me._serviceProxy = DirectCast(MyBase.Connection.CreateProxy(MyBase.Module, GetType(DemoModuleServiceProxy)), DemoModuleServiceProxy)
'' Display the Configuration Path Type enumertion.
MessageBox.Show(("The selected object in the hierarchy pane is a " & MyBase.Connection.ConfigurationPath.PathType))
Me.Refresh()
End If
End Sub