An Example of the TypeOf method

Public Sub ClearForm(frm As Form) 'Pass a form name To it
Dim sMask As String


For Each Control In frm.Controls


If TypeOf Control Is TextBox Or TypeOf Control Is ComboBox Then
Control.Text = "" 'Clear text
End If


If TypeOf Control Is MaskEdBox Then


With Control
sMask = .Mask 'Save the existing mask
.Mask = "" 'Clear mask
.Text = "" 'Clear text
.Mask = sMask 'Reset mask
End With
End If


If TypeOf Control Is DTPicker Then
Control.Date = Date 'Set To current date
End If
Next Control
End Sub