اضافه کردن tab و textbox داخلش

[ghaem-soft]

با سلام

کدی می خواستم که یک teb اضافه کند و درون آن یک richtextbox بسازد و متن من که داخل یک متغیر قرار دارد در آن بنویسد
در ضمن اندازه richtextbox قابل تغییر باشد


با تشکر

[sina.lor.boy]

Function Add()

Dim F As String = "Ghaem-Soft"


Dim sina As New TabPage()
sina.Text = "New Tab"
Dim RCH As New RichTextBox()


TabControl2.TabPages.Add(sina)


RCH.Parent = sina
RCH.Text = F


RCH.Width = 200
RCH.Height = 200


Return 0
End Function


Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
Add()
End Sub