' ******************************************************
	' 列幅変更可能設定
	' ******************************************************
	Public Sub AllowResizeColumn(ByVal flg As Boolean)

		If flg Then
			Dim width As New Dictionary(Of Integer, Single)
			Dim i As Integer = 0
			For i = 0 To Me.ColumnCount() - 1
				width(i) = Me.Columns(i).Width
			Next
			Me.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
			For i = 0 To Me.ColumnCount() - 1
				Me.Columns(i).Width = width(i)
			Next
		End If
		Me.AllowUserToResizeColumns = flg

	End Sub