グループヘッダーフォーマット時 Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer) Me.大項目.Top = 0 Me.グループヘッダー0.Height = Me.詳細.Height * Me.GCnt Me.大項目.Top = (Me.グループヘッダー0.Height - Me.大項目.Height) / 2 Me.MoveLayout = False End Sub 具体的にどのようになっているかイメージしにくいかも知れませんが、上記の Me.MoveLayout = False をコメントアウトすると下図のような結果になります。(分かりやすくするためにグループヘッダーを着色してます。) グループ内の件数に応じて、セクションの高さと項目の表示位置を調整してます。Me.MoveLayout = F