stp format de email vb6

je veux une methode  pour la sasie de la formt de l'email
je deja fait cette methode mais ca marche pas
autre methode svp
If Txt6.Text = "" Then
        Txt6.Text = "Rien"
        Else
        m = Trim(Txt6.Text)
        l = Len(m)
                o = 0
                h = 0
                For i = 1 To l
                f = Mid(m, i, 1)
                T(i) = f
                Next i
                For i = 1 To l
                If T(i) = "@" Then
                 o = i
                 Exit For
                End If
                Next i
                For i = o To l
                If T(i) = "." Then
                    h = i
                Exit For
                End If
                Next
        If o = 0 Or h = 0 Then
        MsgBox "L'adresse e-mail saisie est non valide", vbCritical
        Txt6.SetFocus

Bonsoir,

Ca m'a tout l'air dêtre pour du VB6 et pas du VB.Net
J'attendrai donc, en ce qui me concerne, que la présente discussion soit déplacée là où elle aurait dû être ouverte.
Ainsi : ce sera une perte de temps pour TOUS (pour toi également, donc...).

comment je utiliser cette code svp mr jack

oui...
Tu cesses de te "casser la tête" et fais ainsi :

Private Sub Command3_Click()
  Dim toto As String
  toto = "t2oto@fai.fr"
  MsgBox toto & " est une bonne adresse ? ===>> " & verifions(toto)
  toto = "t2otofai.fr"
  MsgBox toto & " est une bonne adresse ? ===>> " & verifions(toto)
End Sub

Private Function verifions(adresse As String) As Boolean
   verifions = IIf(adresse Like "*@*.*", True, False)
End Function

voilà (et c'est d'un niveau élémentaire...)

Re
Je n'avais rien à faire ce samedi pluvieux, alors je t'ai créé une petite fonction pour répondre à ta question :
http://www.vbfrance.com/code.aspx?ID=43534
Ce code n'utilise pas de composant externe (difficile à trimballer avec les sources)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés