Private Sub DelControl(thisForm As Form)
 
Dim myControls As Object
 
On Error Resume Next
    For Each myControls In thisForm.Controls
        myControls.Text = ""
        myControls.ListIndex = -1
        DoEvents
    Next
 
End Sub

Private Sub Command1_Click()
    DelControl Me
End Sub