Private Sub KopierenToolStripMenuItem_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles KopierenToolStripMenuItem.Click
        If txtdate.SelectionLength > 0 Then
            KopierenToolStripMenuItem.Enabled = True
            txtdate.Copy()
        Else
            KopierenToolStripMenuItem.Enabled = False
        End If
    End Sub