Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
'Wert setzen
        My.Settings.Datum = Format(Date.Now.ToString("dd.MM.yyyy",
                        CultureInfo.InvariantCulture))
 
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
'Wert lesen
        MessageBox.Show(My.Settings.Datum)
    End Sub

EALA FREYA FRESENA