lopezatienza.es

Creamos nuestro Proyecto.

Agregamos 4 TextBox llamados: "tbnombre" , "tbdireccion" , "tbedad" , "tbtelefono"

Agregamos un Button llamado "btnaceptar"

Introducimos el siguiente código en "Form1.vb"

Public Class Form1

    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click

        If tbnombre.Text = "" Or tbdireccion.Text = "" Or tbedad.Text = "" Or tbtelefono.Text = "" Then

            MsgBox("Rellene todos los campos por favor")

        Else : MsgBox("Aceptado")

            tbnombre.Clear()

            tbdireccion.Clear()

            tbedad.Clear()

            tbtelefono.Clear()

        End If

    End Sub

End Class