PrivateSub SectionReport1_ReportStart(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMyBase.ReportStart
Dim t AsNew GrapeCity.ActiveReports.SectionReportModel.TextBox
t.Text = "テキストを入力します。"Me.Sections(0).Controls.Add(t)
MessageBox.Show(Me.Sections(0).Controls.IndexOf(t))
End Sub