Dim selectsql As String
        selectsql = "select * from login WHERE E_mail='" & Me.TextBox4.Text & "'"
        Dim con As New SqlConnection(connectionstring)
        Dim cmd As New SqlCommand(selectsql, con)
        cmd.Parameters.AddWithValue("@E_mail", TextBox4.Text)
        Try
            con.Open()
            Dim count As Integer
            count = cmd.ExecuteScalar
            TextBox4.Text = count.ToString()
            If (count < 1) Then
                Dim insertsql As String
                insertsql = " INSERT INTo login(username,password,E_mail) Values(@username,@password,@E_mail)"
                Dim cmd1 As New SqlCommand(insertsql, con)
                cmd1.Parameters.AddWithValue("@username", TextBox1.Text)
                cmd1.Parameters.AddWithValue("@password", TextBox2.Text)
                cmd1.Parameters.AddWithValue("@E_mail", TextBox4.Text)
                cmd1.ExecuteNonQuery()
                'Label3.Text = " Welcome...Has been successfully registered,Please...wait 5 minutes until the transition to the login page."
                Label5.Text = "تمت العملية بنجاح"
            Else

                Label5.Text = "الاسم موجود لا يمكنك الاضافة"
            End If
        Catch ex As Exception
            Label6.Text = ex.Message
        Finally
            con.Close()

        End Try