Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then   '是否为文本框TextBox
            ctrl.Text = ""
        End If
    Next