Debugging .NET Framework and MS Visual Studio Managed Classes at Run time and Design time

Imports System
Imports System.Windows.Forms

Imports System.ComponentModel

Imports System.Data.OleDb
Imports System.Data

Imports System.ComponentModel.Design
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Design
Imports System.Diagnostics
Imports System.Windows.Forms.ComponentModel
Imports System.Windows.Forms.Design
Imports System.ComponentModel.Design.Serialization

Public Class TestCtlDesigner
	Inherits System.Windows.Forms.Design.ScrollableControlDesigner


	Public Overrides Sub Initialize(ByVal component As System.ComponentModel.IComponent)
		MyBase.Initialize(component)

		Call Me.InitHandlers()

	End Sub

	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		''
		Call Me.RemoveHandlers()
		'
		MyBase.Dispose(disposing)
	End Sub

	Protected Overridable Sub InitHandlers()
		AddHandler Me.SelectionService.SelectionChanged, AddressOf Me.HandleSelectionChanged
	End Sub

	Protected Overridable Sub RemoveHandlers()
		RemoveHandler Me.SelectionService.SelectionChanged, AddressOf Me.HandleSelectionChanged
	End Sub

	Public ReadOnly Property SelectionService() As ISelectionService
		Get
			Return CType(Me.GetService(GetType(ISelectionService)), ISelectionService)
		End Get
	End Property

	Public Sub HandleSelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
		Dim colComp As ICollection
		Dim comp As Component

		colComp = Me.SelectionService.GetSelectedComponents

		For Each comp In colComp
			If Not comp.Site Is Nothing Then
				Debug.WriteLine("   " & comp.Site.Name)
			End If
		Next

	End Sub

	Protected Overrides Property DrawGrid() As Boolean
		Get
			Return False
		End Get
		Set(ByVal Value As Boolean)
			''
		End Set
	End Property
End Class