' ******************************************************
' サイズ調整メソッド
' ******************************************************
Public Sub ParentFit(ByVal TargetForm As System.Windows.Forms.Form)

	Me.Left = _SizeLeft
	Me.Top = _SizeTop
	Me.Width = TargetForm.ClientRectangle.Width - _SizeLeft - _SizeRight
	Me.Height = TargetForm.ClientRectangle.Height - _SizeTop - _SizeBottom

End Sub
Public Sub ParentFit(ByVal TargetForm As System.Windows.Forms.TabControl)

	Me.Left = _SizeLeft
	Me.Top = _SizeTop
	Me.Width = TargetForm.ClientRectangle.Width - _SizeLeft - _SizeRight - 8
	Me.Height = TargetForm.ClientRectangle.Height - _SizeTop - _SizeBottom - 24

End Sub


Private _SizeLeft As Integer = 0
Private _SizeTop As Integer = 0
Private _SizeRight As Integer = 0
Private _SizeBottom As Integer = 0
' ******************************************************
' サイズ調整用位置プロパティ
' ******************************************************
Public Property SizeLeft() As Integer
	Get
		Return _SizeLeft
	End Get
	Set(ByVal value As Integer)
		_SizeLeft = value
	End Set
End Property
Public Property SizeRight() As Integer
	Get
		Return _SizeRight
	End Get
	Set(ByVal value As Integer)
		_SizeRight = value
	End Set
End Property
Public Property SizeTop() As Integer
	Get
		Return _SizeTop
	End Get
	Set(ByVal value As Integer)
		_SizeTop = value
	End Set
End Property
Public Property SizeBottom() As Integer
	Get
		Return _SizeBottom
	End Get
	Set(ByVal value As Integer)
		_SizeBottom = value
	End Set
End Property