请问怎么样用函数给不同TEXTBOX赋值?

例如 有3个textbox 
textbox1
textbox2
textbox3

请问怎么用函数给这三个TEXTBOX赋值?

例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"
SetTextBox( "textbox2","abcd") --------------------编程问答--------------------

Private Sub SetTextBox(TextBox As TextBox, Optional Text As String = "")

   TextBox.Text = Text

End Sub



Private Sub Command1_Click()

   SetTextBox textbox1, "abc"

   SetTextBox textbox2, "abcd"

End Sub



Private Sub Command2_Click()

   '下面这两句效果等同：

   SetTextBox textbox1

   SetTextBox textbox1, vbNullString

End Sub

--------------------编程问答-------------------- Me.Controls("Text1").Text = "abc" --------------------编程问答-------------------- Private Sub SetTextBox(Tx As TextBox, Optional s As String = "")    
Tx= s 
End Sub --------------------编程问答-------------------- 楼上几位正解
可以结贴了 --------------------编程问答-------------------- 给个VB6的代码，vb.net的应该也类似

Option Explicit



Private Sub Form_Load()

    Call SetTextBox("text1", "abc")

End Sub

Private Sub SetTextBox(ByVal sTextBox As String, ByVal sValue As String)

    Me.Controls(sTextBox).Text = sValue

End Sub

--------------------编程问答-------------------- 例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"

=========================

这样比直接写textbox1.text ="abc"好在哪里? --------------------编程问答--------------------

引用 6 楼 WallesCai 的回复:

例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"

=========================

这样比直接写textbox1.text ="abc"好在哪里?

可以“动态引用”。
在某些时候还是有实用价值的。
--------------------编程问答--------------------

引用 7 楼 Chen8013 的回复:

Quote: 引用 6 楼 WallesCai 的回复:

例如 SetTextBox( "textbox1","abc") 就把 textbox1.text ="abc"

=========================

这样比直接写textbox1.text ="abc"好在哪里?

可以“动态引用”。
在某些时候还是有实用价值的。

是的, 我用到过通过外部配置文件控制程序内部控件舒适化等. 

补充：VB ,  基础类