Changer valeur vers VB NET

Salut tout le monde
Svp .. j'ai vraiment besoin d'aide
Avec ce code .. que je l'ai recuperer depuis VB6 .. et qui fonctionne tres bien sans aucun faute
Je tape la date de naissance dans TextBox1 .. et s'affichera automatiquement l'age :
Annees dans TextBox2
Mois dans TextBox3
Jours dans TextBox4
Comment faire svp pour effacer definitivement les expressions du VB6 dans ce code ( Microsoft.VisualBasic ) ..

Code:

---

1 2 3 4 5 6 7 8

Public Class Form1 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Test_Age = DateAdd(Microsoft.VisualBasic.DateInterval.Year, Year(CDate(TextBox5.Text)) - Year(CDate(TextBox1.Text)), CDate(TextBox1.Text)) > CDate(TextBox5.Text) Date_Age = DateAdd(Microsoft.VisualBasic.DateInterval.Year, CDbl(TextBox2.Text), CDate(TextBox1.Text)) TextBox3.Text = CStr(DateDiff(Microsoft.VisualBasic.DateInterval.Month, Date_Age, CDate(TextBox5.Text)) + CShort(Test_Age)) TextBox4.Text = CStr(DateDiff(Microsoft.VisualBasic.DateInterval.Day, DateAdd(Microsoft.VisualBasic.DateInterval.Month, CDbl(TextBox3.Text), Date_Age), CDate(TextBox5.Text))) End Sub End Class

---

Merci beaucoup d'avanace pour l'aide
Cordialement
MADA

Merci a tous .. c'est bien resolu .. j'ai simpement efface ( Microsoft.VisualBasic ) de ces 4 lignes.

Salut Mada,

Dans les propriétés du projet, dans les références, il faut désactiver Microsoft.VisualBasic. Alors tu tu n'utiliseras plus que du VB.Net.
Et si exceptionnellement, tu as vraiment besoin d'un instruction VB6 (ex. Rnd), il te suffira d'écrire le nom complet : Microsoft.VisualBasic.Rnd().

... :)

Pièce jointe 473793

Merci Phil Rob
Merci beaucoup pour l'explication .. merci pour vos lecons et impeccables instructions
Amicalement
MADA