VB6 - Clear Controls on a Form

[Dave Sell]

This is very basic. It clears TextBoxes, Option buttons, and CheckBoxes on a Form.


Private Sub MyResetControls()
'
On Error GoTo Err
'
Dim Control As Object
'
For Each Control In Me.Controls
Control.Text = ""
Control.Value = ""
Next
'
Exit Sub
'
Err:
If Err.Number = 438 Then
Resume Next
ElseIf Err.Number = 13 Then
Control.Value = False
Resume Next
ElseIf Err.Number = 383 Then
Control.Clear
Resume Next
Else
Resume Next
End If
End Sub