1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Public Class Form1
'Private RichTextBox1 = New System.Windows.Forms.RichTextBox
Friend WithEvents RichTextBox1 As New System.Windows.Forms.RichTextBox
Friend WithEvents RichTextBox2 As New System.Windows.Forms.RichTextBox
Friend WithEvents RichTextBox3 As New System.Windows.Forms.RichTextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TabPage1.Controls.Add(Me.RichTextBox1)
TabPage2.Controls.Add(Me.RichTextBox2)
TabPage3.Controls.Add(Me.RichTextBox3)
'RichTextBox1
RichTextBox1.Location = New System.Drawing.Point(6, 6)
RichTextBox1.Name = "RichTextBox1"
RichTextBox1.Size = New System.Drawing.Size(360, 357)
RichTextBox1.TabIndex = 0
RichTextBox1.Text = ""
'RichTextBox2
RichTextBox2.Location = New System.Drawing.Point(6, 6)
RichTextBox2.Name = "RichTextBox2"
RichTextBox2.Size = New System.Drawing.Size(200, 200)
RichTextBox2.TabIndex = 0
RichTextBox2.Text = ""
'RichTextBox3
RichTextBox3.Location = New System.Drawing.Point(6, 6)
RichTextBox3.Name = "RichTextBox3"
RichTextBox3.Size = New System.Drawing.Size(200, 200)
RichTextBox3.TabIndex = 0
RichTextBox3.Text = ""
End Sub
End Class |