Private _ParentFitForm As System.Windows.Forms.Form = Nothing

' ******************************************************
' 自動 ParentFit 用プロパティ
' ******************************************************
Public Property UseParentFitForm() As System.Windows.Forms.Form
	Get
		Return _ParentFitForm
	End Get
	Set(ByVal value As System.Windows.Forms.Form)
		If _ParentFitForm Is Nothing Then
			_ParentFitForm = value
			AddHandler _ParentFitForm.SizeChanged, AddressOf ParentForm_SizeChanged
		Else
			' dispose でも削除されます
			RemoveHandler _ParentFitForm.SizeChanged, AddressOf ParentForm_SizeChanged
			_ParentFitForm = value
			AddHandler _ParentFitForm.SizeChanged, AddressOf ParentForm_SizeChanged
		End If
	End Set
End Property

' ******************************************************
' サイズ変更がされた
' ******************************************************
Private Sub ParentForm_SizeChanged(ByVal sender As System.Object, _
 ByVal e As System.EventArgs)

	If Not _ParentFitForm Is Nothing Then
		Me.ParentFit(_ParentFitForm)
	End If

End Sub

' ******************************************************
' コントロール作成時( 初期 )
' ******************************************************
Protected Overrides Sub OnCreateControl()
	MyBase.OnCreateControl()

	If Not _ParentFitForm Is Nothing Then
		Me.ParentFit(_ParentFitForm)
	End If

End Sub