Private Sub Bosalt(ByVal parent As Control)
For Each c As Control In parent.Controls
If (c.Controls.Count > 0) Then
Bosalt(c)
Else
If TypeOf c Is TextBox Then
CType(c, TextBox).Text = “”
ElseIf TypeOf c Is DateTimePicker Then
CType(c, DateTimePicker).Text = Date.Today
ElseIf TypeOf c Is ComboBox Then
CType(c, ComboBox).Text = “”
End If
End If
Next
End Sub

Kullandığınız kontrole göre ElseIf TypeOf c Is KontrolAdi Then şeklinde düzenleyebilirsiniz.

Başka başka şeyler de var :)

• 03 Ocak 2009 -- Eurovison Hadise Düm Tek Tek (4)
• 01 Aralık 2009 -- Damara bağladım lann :) (0)
• 11 Ekim 2009 -- Tık tık tık iyi günler (2)
• 27 Aralık 2009 -- Pazar günü çalışan insan (4)
• 02 Mart 2010 -- Pohtan toplum üretimi… (1)
• 26 Eylül 2008 -- Kadir Geceniz Kutlu olsun.. (0)
• 28 Ekim 2008 -- Ne oldu altın makas TRT ? (0)
• 19 Şubat 2010 -- Varol is yontuluyoring… (1)
• 19 Ağustos 2010 -- Şen dul (0)
• 08 Aralık 2009 -- Huzur ve Mutluluk (3)