*************** ��������� TextBox ���� Me.Collection ****************

����������ҵ�ͧ������ TextBox ��ҧ ��Ҩ��� TextBox.Text = "" �������ص���Ҥس�� TextBox �ѡ 30 TextBox �س��ͧ��¹�֧ 30 ��÷Ѵ ����������

��������ա�Ըշ���Ҩ�дա��� ��Ҩл�С�ȵ����Ẻ Control ����� 1��� �ҡ��鹨�ǹ Control collection �ͧ Form ત�� ��Ҷ���� TextBox ����� Control.Text = "" ���ú�ء Control

************* Code **************

Dim Ctl As Control

For Each Ctl In Me.Collection
      If TypeOf Ctl Is TextBox Then
            Ctl.Text = ""
      End If
Next Ctl

********��س��ͧ�����ҵ�ͧ��������� TextBox �ء�ѹ��ԧ� *********