DUVIDA VALIDACAO/GRAVACAO

  Public Class ValidarCampos
    Public Sub Validar(ByVal Page As Control)
        For Each ctrl As Control In Page.Controls
            If TypeOf ctrl Is TextBox Then
                With CType(ctrl, TextBox)
                    If .Visible AndAlso .Text = String.Empty And .Tag = 1 Then
                        KryptonMessageBox.Show([Ô]CAMPO [Ô] & Mid(.Name.ToUpper, 4, 20) & [Ô] é OBRIGATÓRIO[Ô], empresa, MessageBoxButtons.OK, MessageBoxIcon.Information)
                        .Focus()
                        Exit Sub
                    End If
                End With
            ElseIf TypeOf ctrl Is ComboBox Then
                With CType(ctrl, ComboBox)
                    If .Visible AndAlso .SelectedIndex < 0 And .Tag = 1 Then
                        KryptonMessageBox.Show([Ô]CAMPO [Ô] & Mid(.Name.ToUpper, 4, 20) & [Ô] é OBRIGATÓRIO[Ô], empresa, MessageBoxButtons.OK, MessageBoxIcon.Information)
                        .Focus()
                        Exit Sub
                    End If
                End With
            Else
                If ctrl.Controls.Count > 0 Then
                    Validar(ctrl)
                End If
            End If
        Next
    End Sub
End Class
 

  Public Class Funcionario
    Private _id As Integer
    Private _cpf As String
...
...
...
    Public Property Id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Public Property Cpf() As String
        Get
            Return _cpf
        End Get
        Set(ByVal value As String)
            _cpf = value
        End Set
    End Property
   Public Property Nome() As String
        Get
            Return _nome
        End Get
        Set(ByVal value As String)
            _nome = value
        End Set
    End Property
...
...
...
    Public Sub gravarFuncionario()
        Try
            ConexaoBd()
            sql = [Ô]insert into funcionarios(cpf,rg,nome,endereco,bairro,cidade,cargo,telefone,celular,salario)values(@cpf,@rg,@nome,@endereco,@bairro,@cidade,@cargo,@telefone,@celular,@salario)[Ô]
            Comando = New MySqlCommand(sql, Conexao)
            With Comando
                .Parameters.AddWithValue([Ô]@cpf[Ô], _cpf)
                .Parameters.AddWithValue([Ô]@rg[Ô], _rg)
                .Parameters.AddWithValue([Ô]@nome[Ô], _nome)
                .Parameters.AddWithValue([Ô]@endereco[Ô], _endereco)
                .Parameters.AddWithValue([Ô]@bairro[Ô], _bairro)
                .Parameters.AddWithValue([Ô]@cidade[Ô], _cidade)
                .Parameters.AddWithValue([Ô]@cargo[Ô], _cargo)
                .Parameters.AddWithValue([Ô]@telefone[Ô], _telefone)
                .Parameters.AddWithValue([Ô]@celular[Ô], _celular)
                .Parameters.AddWithValue([Ô]@salario[Ô], _salario)
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message, empresa, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Finally
            conClose()
        End Try
    End Sub
End Class 

   Private Sub btnGravar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGravar.Click
        _validar.Validar(Me)
        gravar()
    End Sub