Kosongkan Textbox, Combobox, DatePicker VB.Net

Kali ini saya ingin membagikan source code untuk membersihkan form textbox, combobox, datepicker dengan menggunakan procedure yang sangat mudah, sehingga mempermudah dalam memodifikasi nya, sesuai kebutuhan.

Buka Project - Module Lalu masukkan source code berikut ini :
 
Sub ClearForm(ByVal frm As Form)
        Dim ctrl As Control
        Dim txtControl As TextBox
        Dim cmbControl As ComboBox
        Dim dtControl As DateTimePicker
        For Each ctrl In frm.Controls
            If TypeOf ctrl Is TextBox Then
                txtControl = ctrl
                txtControl.Text = ""
            ElseIf TypeOf ctrl Is ComboBox Then
                cmbControl = ctrl
                cmbControl.Text = ""
            ElseIf TypeOf ctrl Is DateTimePicker Then
                dtControl = ctrl
                dtControl.Value = Now
            End If
        Next
    End Sub

Demikian source code nya, Semoga bisa membantu kalian.