Anpassungen 20210526

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -16,11 +16,6 @@
 
     Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.Panel2.Height = 1
-
-        kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
-        Me.cbboxKontaktFB.DataSource = kontaktfb
-        Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
-        Me.cbboxKontaktFB.ValueMember = "Keyvalue"
         sec.Set_Form_Security(Me)
     End Sub
 
@@ -54,8 +49,14 @@
 
     Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
         If Me.cbTemporaer.Checked = True Then
+            Cursor = Cursors.WaitCursor
             Me.Panel2.Height = 227
             Me.Height = Me.Height + 227
+            kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
+            Me.cbboxKontaktFB.DataSource = kontaktfb
+            Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
+            Me.cbboxKontaktFB.ValueMember = "Keyvalue"
+            Cursor = Cursors.Default
         Else
             Me.Panel2.Height = 1
             Me.Height = Me.Height - 227