动态访问textbox

Question

假设有N个textbox, 名字都不一样, 然后写一个公共函数,对这些textbox的内容进行检测
public function check(控件对象)
{
           //从函里怎样引用对象本身
.......
.......
}

Answer 1

    Dim o As Control
    For Each o In Me.Controls
        If TypeOf o Is TextBox Then
            Print o.Text
        End If
    Next

Answer 2

public function check 
{ 
   Dim a As Control 
   select case a
  case  
     ...
  case //第二extBox
      ...
 ...
End select 
}