textboxları temizleme

[red_lion_72]

selam,

userform içersini tek bir tuşla bir seferde temizlemem mümkün mü? herbir textbox ve combobox için boşaltma yapmadan.

Yani herbir textbox veya combobox için textbox1.text="" demek istemiyorum. Komuttan sonra otomatik olarak temizlesin.

Teşekkürler.

Kolay gelsin.

 

[xxrt]

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Controls.Count - 1
If Not IsEmpty(Controls(i)) Then
Controls(i) = Empty
End If
Next i
End Sub

 

[red_lion_72]

Çok teşekkürler. Sorunsuz çalışıyor.

Allah moderatörlerimizi başımızdan eksik etmesin.

Kolay gelsin.