Dim txt As Control
    For Each txt In Me.Controls
      If TypeOf txt Is TextBox Then
       txt.Text = “”
      End If
    Next txt
    (想一下：如果窗口中有几十个文本框，用传统的编程法要写多少行代码？体会一下面向对象编程的巨大威力吧！)