Visual Basic - limpiar texto de textbox

Private Sub Command2_Click()

    Text2 = Text2.Text = ""

    Text3 = Text3.Text = ""

    Text4 = Text4.Text = ""

    Text5 = Text5.Text = ""

End Sub

Private Sub Command2_Click()

Text2 = Text2.Value= ""

Text3 = Text3.Value = ""

Text4 = Text4.Value= ""

Text5 = Text5.Value= ""

End Sub

Dim ctrl As Object

'Aqui la rutina que tu necesites o vas a ejecutar

'Limpia los TextBox existentes en el formulario

For Each ctrl In Controls

If TypeOf ctrl Is TextBox Then ctrl.text = ""

Next

    MsgBox ("TextBox limpios para nuevo uso"), vbInformation, "Limpiesa"

End Sub

Para dos controles

Sub Text_Combo(Formulario As UserForm) 'Para varios Formularios

'Sub TextBoxComboBox() 'para 1 solo formulario

Dim ctrl As Object

For Each ctrl In Formulario.Controls ' Para varios Formularios

'For Each ctrl In Me.Controls 'para 1 solo formulario

    If TypeOf ctrl Is msforms.TextBox Then ctrl = Empty

    If TypeOf ctrl Is msforms.ComboBox Then ctrl = Empty

Next ctrl

MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpieza"

End Sub

Private Sub btnlimpiar_Click(sender As Object, e As EventArgs) Handles btnlimpiar.Click

    lblprocedimiento.Text = ""

    txtnum1.Text = ""

    txtnum2.Text = ""

    txtresultado.Text = ""

    lblprocedimiento.Text = ""

End Sub

Private Sub cmd_Nuevo_click()

txtnombre = Empty

txtdireccion = Empty

txttel = Empty

txtcel = Empty

txtemail = Empty

txtnombre.SetFocus

End Sub

For z = 1 To 16 'CON ESTO CONTROLAS EL TOTAL DE LOS TEXBOX EXISTENTES

If Controls("TEXTBOX" & z) = "" Then  ' AQUI EVALUA SI ESTA VACIO EL TEXTBOX EN TURNO

                                      ' EN CASO DE QUE ESTE VACIO AQUI COLOCAS EL CODIGO QUE TE CONVENGA

END IF

NEXT Z

Dim obj As Control

For Each obj In

Me.El nombre del GroupBox.Controls

    If TypeOf (obj) Is TextBox Then

        obj.Text = ""

        CType(obj, TextBox).ReadOnly = False

    End If

Next

Dim obj As Control

For Each obj In

Me.GroupBox1.Controls

    If TypeOf (obj) Is TextBox Then

        obj.Text = ""

        CType(obj, TextBox).ReadOnly = False

    End If

Next

Dim obj2 As Control

For Each ob2j In

Me.GroupBox2.Controls

    If TypeOf (ob2j) Is TextBox Then

        ob2j.Text = ""

        CType(obj2, TextBox).ReadOnly = False

    End If

Next

Private Sub Command2_Clik()

Text1.Text = ""

Text2.Text = " "

Text.3.text = " "

End Sub

prívate sub cmd_Eliminar_Click( )

Dim Registro As String

Ir IsNull (cliente)

MsgBox "Debe seleccionar un registro", , "Factura"

Exit Sub

End If

Registro = Cliente

If MsgBox (" Desea eliminar Factura. "& Registro & "?" + Christian(13), vbOKCancel) = vbOk Then

Recordset.delete

MsgBox Registro & " Factura Eliminada", vbIformación, "Factura"

Else

Exit Sub

End If

End Sub