Clearing contents of multiple TextBox and ListBox on UserForm

Hi everyone,
I am having having problems trying to clear the contents of two ListBoxes on a Userform.

Dim ctrlType1 As String, ctrlType2 As String
    
    ctrlType1 = "TextBox"
    ctrlType2 = "ListBox"
    
    For Each ctrl In Userform2.Controls
        If TypeName(ctrl) = ctrlType1 Then
            ctrl.Value = ""
            ElseIf TypeName(ctrl) = ctrlType2 Then
            ctrl.Clear
        End If
    Next ctrl

It errors out on the line ctrl.Clear

Thanks for looking into this.

thanks mehmetcik.
I tried your code but it still doesn't clear the ListBoxes.

What is the error number and error message when it errors out?

Thank Rick for looking into this.
Strangely my original code works now. I don't even know what happend. I don't remember the exact error code message, it was "Object.....".

This works:

Dim ctrlType1 As String, ctrlType2 As String

    ctrlType1 = "TextBox"
    ctrlType2 = "ListBox"

    For Each ctrl In Userform2.Controls
        If TypeName(ctrl) = ctrlType1 Then
            ctrl.Value = ""
            ElseIf TypeName(ctrl) = ctrlType2 Then
            ctrl.Clear
        End If
    Next ctrl

I don't see anything different in the code.

Were you loading the Listbox using RowSource?

Yes, one of the ListBox gets loaded from RowSource:

For j = 4 To 9
      Me.LbxCat.AddItem Sheet27.Cells(j, "F")
Next

Place in a Module and call as required.

Option Explicit
Dim ctl As Control

Sub Clear()
For Each ctl In UserForm1.Controls
Select Case TypeName(ctl)
Case "TextBox"
ctl.Text = ""
Case "ComboBox", "ListBox"
ctl.ListIndex = -1
End Select
Next ctl
End Sub

Thanks torachan,
your code clears TextBoxes but not ListBoxes.

You cannot use Clear if you use rowsource, it's best to load them like

Me.ListBox1.List = Sheets("Sheet1").Range("A2:A20").Value