Question

VBA中清除文本框和复合框中的内容

VBA中清除文本框和复合框中的内容，我写的代码是：
Private Sub CommandButton6_Click()
Dim rng As Control
For Each rng In userform1.Controls
If TypeName(rng) = "textbox" Then
rng.Text = ""
End If
If TypeName(rng) = "combobox" Then
rng.Text = ""
End If
Next rng
End Sub
运行后，始终不起作用，请高人指点！

Answer 1

            Dim ctlText As Object
            For Each ctlText In Me.Controls
                If TypeOf ctlText Is TextBox Then
                    ctlText.Enabled = False
                End If
            Next
            这是我之前用的，你试试。

Answer 2

TypeName(rng) 注意大小写 TextBox

Answer 3

text1 = ""