Dim text As New RichTextBox Dim newTabPage As New TabPage TabControl1.TabPages.Add(newTabPage) Text.Dock = DockStyle.Fill newTabPage.Controls.Add(Text) '新しく追加したタブが選択された状態にする。 TabControl1.SelectedTab = newTabPage With Me.OpenFileDialog1 .Filter = "HTMLファイル(*.html)|*.html" .Title = "開くファイルを選択して開いてください。" .FileName = "" If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then If .FileName.Substring(.FileName.Length - 5, 5) = ".html" Then End If CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).LoadFile(.FileName, RichTextBoxStreamType.PlainText) End If ToolStripStatusLabel2.Text = .FileName End With