MS 04.09.2015 2

app - Kopie/DD-Record-Organiser/frmwindreamView_Config.vb

@@ -0,0 +1,11 @@
+Public Class frmwindreamView_Config
+
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxWD_ShowDocs.CheckedChanged
+        WD_ShowDocs = CheckBoxWD_ShowDocs.Checked
+        SaveMySettingsValue("WD_ShowDocs", WD_ShowDocs)
+    End Sub
+
+    Private Sub frmwindreamView_Config_Load(sender As Object, e As EventArgs) Handles Me.Load
+        CheckBoxWD_ShowDocs.Checked = WD_ShowDocs
+    End Sub
+End Class