Mã:
Private Function VietHoaKhongDau(ByVal value As String) As String value = value.Replace(".", " .") value = value.Replace("?", " ?") ''---------------------------------a^ value = value.Replace("ấ", "a") value = value.Replace("ầ", "a") value = value.Replace("ẩ", "a") value = value.Replace("ẫ", "a") value = value.Replace("ậ", "a") '---------------------------------A^ value = value.Replace("Ấ", "A") value = value.Replace("Ầ", "A") value = value.Replace("Ẩ", "A") value = value.Replace("Ẫ", "A") value = value.Replace("Ậ", "A") ''---------------------------------a( value = value.Replace("ắ", "a") value = value.Replace("ằ", "a") value = value.Replace("ẳ", "a") value = value.Replace("ẵ", "a") value = value.Replace("ặ", "a") ''---------------------------------A( value = value.Replace("Ắ", "A") value = value.Replace("Ằ", "A") value = value.Replace("Ẳ", "A") value = value.Replace("Ẵ", "A") value = value.Replace("Ặ", "A") ''---------------------------------a value = value.Replace("á", "a") value = value.Replace("à", "a") value = value.Replace("ả", "a") value = value.Replace("ã", "a") value = value.Replace("ạ", "a") value = value.Replace("â", "a") value = value.Replace("ă", "a") ''---------------------------------A value = value.Replace("Á", "A") value = value.Replace("À", "A") value = value.Replace("Ả", "A") value = value.Replace("Ã", "A") value = value.Replace("Ạ", "A") value = value.Replace("Â", "A") value = value.Replace("Ă", "A") ''---------------------------------e^ value = value.Replace("ế", "e") value = value.Replace("ề", "e") value = value.Replace("ể", "e") value = value.Replace("ễ", "e") value = value.Replace("ệ", "e") ''---------------------------------E^ value = value.Replace("Ế", "E") value = value.Replace("Ề", "E") value = value.Replace("Ể", "E") value = value.Replace("Ễ", "E") value = value.Replace("Ệ", "E") ''---------------------------------e value = value.Replace("é", "e") value = value.Replace("è", "e") value = value.Replace("ẻ", "e") value = value.Replace("ẽ", "e") value = value.Replace("ẹ", "e") value = value.Replace("ê", "e") ''---------------------------------E value = value.Replace("É", "E") value = value.Replace("È", "E") value = value.Replace("Ẻ", "E") value = value.Replace("Ẽ", "E") value = value.Replace("Ẹ", "E") value = value.Replace("Ê", "E") ''---------------------------------i value = value.Replace("í", "i") value = value.Replace("ì", "i") value = value.Replace("ỉ", "i") value = value.Replace("ĩ", "i") value = value.Replace("ị", "i") ''---------------------------------I value = value.Replace("Í", "I") value = value.Replace("Ì", "I") value = value.Replace("Ỉ", "I") value = value.Replace("Ĩ", "I") value = value.Replace("Ị", "I") ''---------------------------------o^ value = value.Replace("ố", "o") value = value.Replace("ồ", "o") value = value.Replace("ổ", "o") value = value.Replace("ỗ", "o") value = value.Replace("ộ", "o") ''---------------------------------O^ value = value.Replace("Ố", "O") value = value.Replace("Ồ", "O") value = value.Replace("Ổ", "O") value = value.Replace("Ô", "O") value = value.Replace("Ộ", "O") ''---------------------------------o* value = value.Replace("ớ", "o") value = value.Replace("ờ", "o") value = value.Replace("ở", "o") value = value.Replace("ỡ", "o") value = value.Replace("ợ", "o") ''---------------------------------O* value = value.Replace("Ớ", "O") value = value.Replace("Ờ", "O") value = value.Replace("Ở", "O") value = value.Replace("Ỡ", "O") value = value.Replace("Ợ", "O") ''---------------------------------u* value = value.Replace("ứ", "u") value = value.Replace("ừ", "u") value = value.Replace("ử", "u") value = value.Replace("ữ", "u") value = value.Replace("ự", "u") ''---------------------------------U* value = value.Replace("Ứ", "U") value = value.Replace("Ừ", "U") value = value.Replace("Ử", "U") value = value.Replace("Ữ", "U") value = value.Replace("Ự", "U") ''---------------------------------y value = value.Replace("ý", "y") value = value.Replace("ỳ", "y") value = value.Replace("ỷ", "y") value = value.Replace("ỹ", "y") value = value.Replace("ỵ", "y") ''---------------------------------Y value = value.Replace("Ý", "Y") value = value.Replace("Ỳ", "Y") value = value.Replace("Ỷ", "Y") value = value.Replace("Ỹ", "Y") value = value.Replace("Ỵ", "Y") ''---------------------------------DD value = value.Replace("Đ", "D") value = value.Replace("Đ", "D") value = value.Replace("đ", "d") ''---------------------------------o value = value.Replace("ó", "o") value = value.Replace("ò", "o") value = value.Replace("ỏ", "o") value = value.Replace("õ", "o") value = value.Replace("ọ", "o") value = value.Replace("ô", "o") value = value.Replace("ơ", "o") ''---------------------------------O value = value.Replace("Ó", "O") value = value.Replace("Ò", "O") value = value.Replace("Ỏ", "O") value = value.Replace("Õ", "O") value = value.Replace("Ọ", "O") value = value.Replace("Ô", "O") value = value.Replace("Ơ", "O") ''---------------------------------u value = value.Replace("ú", "u") value = value.Replace("ù", "u") value = value.Replace("ủ", "u") value = value.Replace("ũ", "u") value = value.Replace("ụ", "u") value = value.Replace("ư", "u") ''---------------------------------U value = value.Replace("Ú", "U") value = value.Replace("Ù", "U") value = value.Replace("Ủ", "U") value = value.Replace("Ũ", "U") value = value.Replace("Ụ", "U") value = value.Replace("Ư", "U") ''--------------------------------- Return value End Function
Bất chấp những lầm tưởng phổ quát, hồ hết những người có âm đạo đều khó lên đỉnh khi bị kích thích âm đạo. Tuy nhiên, điều đó không có tức thị nó không thể vui được! Việc xâm nhập vào âm đạo bằng...
Quý bà giải tỏa bằng việc kích...