Private Sub AktuellesDatumToolStripMenuItem_Click(ByVal sender As _
  System.Object, ByVal e As System.EventArgs) Handles _
  AktuellesDatumToolStripMenuItem.Click
        txtdate.Text = Format(Date.Today, c_sDatumsFormat)
 
    End Sub