*************** การเคลียร์ 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 ทุกอันจริงๆ *********