Formu Temizlemek ?

[HD1975]

MErhaba ;

Aşağıdaki kod ile formdaki textboxları temizliyorum ama form üzerinde bir adet
combobox var bu komutun içine ne eklemem gerekki combobox4'üde temizlesin.


Private Sub formutemizle_Click()
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = Empty
Next
B.Value = ""
yeni = True

End Sub

Saygılar

 

[Orion1]

Private Sub formutemizle_Click()
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" or typename(Ctrl) = "ComboBox" Then Ctrl.Value = Empty
Next
B.Value = ""
yeni = True

End Sub