Hey guys is there anybody knows how can I move in text boxes by enter key nether tap key ?

Public Class Employee

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As SqlConnection = New SqlConnection("Data Source=S-MHAMEED\SQL2008RTWO;Initial Catalog=comp.task;User ID=sa;Password=likebefore")
        If TextBox1.Text = String.Empty Then
            MessageBox.Show("Please Insert Emb Number !  ")
        End If
        If ComboBox1.Text = String.Empty Then
            MessageBox.Show(" Please Insert Section ! ")
            If TextBox3.Text = String.Empty Then
                MessageBox.Show("Please Insert Emp Name ! ")
            End If
            If TextBox5.Text = String.Empty Then
                MessageBox.Show("Insert Job Description ! ")
            End If
            If TextBox6.Text = String.Empty Then
                MessageBox.Show("Insert Section Name !  ")
            End If
            If TextBox8.Text = String.Empty Then
                MessageBox.Show("Insert Basic Salary ! ")
            End If


        Else
            Using con
                con.Open()
                Dim sqlcomm As New SqlCommand()
                sqlcomm.Connection = con
                sqlcomm.CommandText = "insert_emp"
                sqlcomm.CommandType = CommandType.StoredProcedure
                sqlcomm.Parameters.AddWithValue("@emp_num", Convert.ToInt32(TextBox1.Text))
                sqlcomm.Parameters.AddWithValue("@debt_num", Convert.ToInt32(ComboBox1.Text))
                sqlcomm.Parameters.AddWithValue("@emp_name", TextBox3.Text)
                sqlcomm.Parameters.AddWithValue("@emp_p_date", DateTimePicker2.Text())
                sqlcomm.Parameters.AddWithValue("@emp_work_date", DateTimePicker1.Text())
                sqlcomm.Parameters.AddWithValue("@emp_sal", Convert.ToInt32(TextBox8.Text))
                sqlcomm.Parameters.AddWithValue("@emp_desc", TextBox5.Text)
                sqlcomm.Parameters.AddWithValue("debt_name", TextBox6.Text)
                Dim queryResult As Integer
                Dim cmd As New SqlCommand
                If queryResult > 0 Then
                    cmd.CommandText = "insert into emb_num (Dt,ID)VALUES ('" & TextBox1.Text & "' , '" & TextBox1.Text & "')"
                    queryResult = cmd.ExecuteScalar()
                    MsgBox("Added Successfuly")
                Else

                    'MessageBox.Show("Already Exists!", "ALI ENTERPRISES", MessageBoxButtons.OK, MessageBoxIcon.Information)

                End If

                sqlcomm.ExecuteNonQuery()
                ' con.Open()

                MessageBox.Show("Add Sucssfully  ")
                'TextBox1.Text = ""
                ComboBox1.Text = ""
                TextBox3.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
                TextBox8.Text = ""
                'Form1_Load3()
                con.Close()
            End Using
        End If
    End Sub