Imports System.Windows.Forms

Public Class frmMessenger_Members

    Dim SQL As New SQL
    Dim CHAT As New cMessenger.cMessenger_Chat

    Dim loaded = False
    Public chat_id As Integer = -1

    Sub New(CHAT)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.CHAT = CHAT
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Sub initDGV()
        With dgvChatMembers
            .Rows.Clear()

            For Each MB In CHAT.CHAT_MEMBERS
                Dim MA As New cMitarbeiter(MB.chatMb_maId)
                .Rows.Add({"", MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
            Next
            .ClearSelection()
        End With
    End Sub

    Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
        initDGV()
    End Sub
End Class