Tester un zone de texte s' il contient une adresse electronique
Imports System.Text.RegularExpressions
Public Class Tester
Public Shared Sub Main
Dim testString As String
Dim emailPattern As String = _
"^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@" & _
"([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
Avenue des F.A.R. Rsidence Niama N6 - Ttouan (Maroc)
