SDL Brief BugFix

VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb

@@ -56,13 +56,8 @@ Public Class frmMessenger_NeuerChat
 
         dgvChatgruppe.Rows.Clear()
         dgvChatgruppe.Rows.Add({"BUCHHALTUNG", "BUCHHALTUNG"})
-        dgvChatgruppe.ClearSelection()
 
-        Select Case CHAT.chat_art
-            Case "SND_CHAT", "LKW_CHAT"
-                Label3.Visible = True
-                dgvChatgruppe.Visible = True
-        End Select
+
 
         loaded = True
         initDGV()
@@ -71,6 +66,12 @@ Public Class frmMessenger_NeuerChat
             Me.MyTextBox2.Text = CHAT.chat_name
             Me.MyTextBox2.Enabled = False
             btn.Text = "Hinzufügen"
+
+            Select Case CHAT.chat_art
+                Case "SND_CHAT", "LKW_CHAT"
+                    Label3.Visible = True
+                    dgvChatgruppe.Visible = True
+            End Select
         End If
     End Sub
 
@@ -209,4 +210,8 @@ Public Class frmMessenger_NeuerChat
     Private Sub dgvChatMembers_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles dgvChatMembers.RowsRemoved
         initAddRemoveDGV()
     End Sub
+
+    Private Sub frmMessenger_NeuerChat_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        dgvChatgruppe.ClearSelection()
+    End Sub
 End Class