MS v2.0

app/DD_PM_WINDREAM/frmKonfig.vb

@@ -22,7 +22,7 @@ Public Class frmKonfig
             End If
 
             chkLogErrorsOnly.Checked = CBool(LOG_ERRORS_ONLY)
-
+            txtIntervall.Text = CONFIG.Config.ReminderTimer
 
         Catch ex As Exception
             LOGGER.Error(ex)
@@ -201,8 +201,13 @@ Public Class frmKonfig
     End Sub
 
     Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged
-        ' TODO: This is not used anywhere?
-        My.Settings.Save()
+        Try
+            CONFIG.Config.ReminderTimer = CInt(txtIntervall.Text)
+            CONFIG.Save()
+        Catch ex As Exception
+
+        End Try
+
     End Sub
 
     Private Sub chkLogErrorsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged