Add new nodes

app/DD-Record-Organizer/frmNewNode.vb

@@ -0,0 +1,29 @@
+Public Class frmNewNode
+    Public Property Title As String
+    Public Property Id As Integer
+    Public Property NodeConfigTypes As New List(Of NodeConfig)
+
+    Public Class NodeConfig
+        Public Property Id
+        Public Property Name
+
+        Public Overrides Function ToString() As String
+            Return Name
+        End Function
+    End Class
+
+    Private Sub frmNewNode_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        cmbNodeConfig.Properties.Items.AddRange(NodeConfigTypes)
+        cmbNodeConfig.SelectedIndex = 0
+    End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Try
+            Dim oSelectedNodeConfig As NodeConfig = cmbNodeConfig.EditValue
+            Id = oSelectedNodeConfig.Id
+            Title = TextEdit1.EditValue
+            DialogResult = DialogResult.OK
+        Catch ex As Exception
+        End Try
+    End Sub
+End Class