Limpiar cajas de texto

A continuación tenemos un ejemplo que permitirá limpiar cajas de textbox utilizando For Each la cual hará un recorrido de todos los textbox contenidos en el formulario.

Código fuente

Paso 1: Programar botón btnLimpiar

Private Sub btnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpiar.Click

        Limpiar_TextBox(Me)

End Sub

Paso 2: Programar función 

Public Sub Limpiar_TextBox(ByVal controls As Control)

  For Each control As Control In controls.Controls

     If TypeOf control Is TextBox Then

         control.Text = ""

        If control.TabIndex = 1 Then

           control.Focus()

        End If

     End If

  Next

End Sub