'「pagenum」はただの変数です '「SPControl」はユーザーコントロールです。 Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click Dim NewTabPage As New TabPage NewTabPage.Text = "◯ページ-" + pagenum Dim NewSPControl As New SPControl NewSPControl.Dock = DockStyle.Fill NewSPControl.Visible = True NewTabPage.Controls.Add(NewSPControl) TabControl1.TabPages.Add(NewTabPage) pagenum += 1 End Sub