' ******************************************************
' カラム数取得
' ******************************************************
Public Function GetColumnCount() As Integer

	GetColumnCount = Me.ColumnCount()

End Function