Calcul de delais

Imports System.Runtime.InteropServices

Public Class Form1

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1 = (DateFormat(dd, mm, yyyy))
        DateAdd(DateInterval.Month, 0, Date.Today)
    End Sub

Private Function DateFormat(p1 As Object, p2 As Object, p3 As Object) As TextBox
        Exception(New NotImplementedException)
    End Function

Private Function dd() As Object
        Exception(New NotImplementedException)
    End Function

Private Function mm() As Object
        Exception(New NotImplementedException)
    End Function

Private Function yyyy() As Object
        Exception(New NotImplementedException)
    End Function

Private Sub Exception(notImplementedException As NotImplementedException)
        Throw New System.NotImplementedException
    End Sub

End Class
<SerializableAttribute()>
<ComVisibleAttribute(True)>
Public Class NotImplementedException

End Class