Public Sub New()
        InitializeComponent()
 
        CreateTBContextMenu(TextBox1)
        CreateTBContextMenu(TextBox2)
    End Sub
 
    Private Sub CreateTBContextMenu(ByVal txt As TextBox)
        Dim ctx As New ContextMenuStrip()
        ctx.Tag = txt
        Dim dateToday As New ToolStripMenuItem With {.Text = "Heutiges Datum"}
        Dim copy As New ToolStripMenuItem With {.Text = "Kopieren"}
        Dim cut As New ToolStripMenuItem With {.Text = "Ausschneiden"}
        Dim paste As New ToolStripMenuItem With {.Text = "Einfügen"}
        ctx.Items.Add(dateToday)
        ctx.Items.Add(copy)
        ctx.Items.Add(cut)
        ctx.Items.Add(paste)
        AddHandler dateToday.Click, AddressOf ctx_DateToday
        AddHandler copy.Click, AddressOf txt.Copy
        AddHandler cut.Click, AddressOf txt.Cut
        AddHandler paste.Click, AddressOf txt.Paste
        txt.ContextMenuStrip = ctx
    End Sub
 
    Private Sub ctx_DateToday(ByVal sender As Object, ByVal e As EventArgs)
        Dim txt As TextBox = CType(CType(sender, ToolStripMenuItem).Owner.Tag, _
          TextBox)
        txt.Text = Date.Today.ToShortDateString
    End Sub