MS Diverses Customizing

app/DD-Record-Organizer/frmEntities.vb

@@ -383,6 +383,7 @@ Public Class frmEntities
                 Dim result As MsgBoxResult = MsgBox(msg, MsgBoxStyle.YesNo, "Question:")
                 If result = MsgBoxResult.Yes Then
                     INTEGER1 = CurrentID
+                    STRING1 = FORM_TITLETextBox.Text
                     frmNewKombiForm.ShowDialog()
                 End If
             End If
@@ -455,4 +456,11 @@ Public Class frmEntities
         '.. und starten
         BW_Entity.RunWorkerAsync()
     End Sub
+
+    Private Sub NAMETextBox_LostFocus(sender As Object, e As EventArgs) Handles NAMETextBox.LostFocus
+        If FORM_TITLETextBox.Text = String.Empty Then
+            FORM_TITLETextBox.Text = NAMETextBox.Text
+        End If
+
+    End Sub
 End Class