Public Class MVCPattern
    Private _frmMain As frmMain
    Private _clientlist As New ArrayList
 
    Public Sub New(ByVal mainform As frmMain)
        _frmMain = mainform
    End Sub
 
    Public Function getClient(ByVal index As Int32) As Client
        Return _clientlist.Item(index)
    End Function
 
    Public Sub add(ByVal _client As Client)
        Dim _item As New ListViewItem
 
        With _item
            With .SubItems
                .Add(New ListViewItem.ListViewSubItem)
                .Add(New ListViewItem.ListViewSubItem)
                .Add(New ListViewItem.ListViewSubItem)
                .Add(New ListViewItem.ListViewSubItem)
                .Add(New ListViewItem.ListViewSubItem)
                .Add(New ListViewItem.ListViewSubItem)
            End With
            .SubItems(0).Text = _client.ipAdresse
            .SubItems(1).Text = _client.Hostname
            .SubItems(2).Text = _client.Username
            .SubItems(3).Text = _client.Vncversion
            .SubItems(4).Text = _client.Virendefinitionsversion
            .SubItems(5).Text = _client.HCversion
        End With
        _clientlist.Add(_client)
        _client.BeginReceive()
        _frmMain.Invoke(_frmMain.addClient, _item)
    End Sub
 
    Public Sub remove(ByVal listindex As Int32)
        Try
            CType(_clientlist.Item(listindex), Client).StopReceive()
            CType(_clientlist.Item(listindex), Client).Dispose()
            _clientlist.RemoveAt(listindex)
            _frmMain.Invoke(_frmMain.removeClient, listindex)
        Catch ex As ArgumentOutOfRangeException
            Logger.write(ex.StackTrace.ToString)
        End Try
    End Sub
 
    Public Sub remove(ByVal sender As Client)
        Dim index As Int32 = _clientlist.IndexOf(sender)
        If index <> -1 Then
            CType(_clientlist.Item(index), Client).StopReceive()
            CType(_clientlist.Item(index), Client).Dispose()
            _clientlist.RemoveAt(index)
            _frmMain.Invoke(_frmMain.removeClient, index)
        End If
    End Sub
 
    Public Sub removeAll()
        For Each _client As Client In _clientlist
            Dim index As Int32 = _clientlist.IndexOf(_client)
            CType(_clientlist.Item(index), Client).StopReceive()
            CType(_clientlist.Item(index), Client).Dispose()
        Next
        _frmMain.Invoke(_frmMain.ClearListview)
        _clientlist.Clear()
    End Sub
 
    Public Sub edit(ByVal index As Int32)
        _frmMain.Invoke(_frmMain.editClient, index)
    End Sub
 
    Public Sub edit(ByVal sender As Client)
        _clientlist.IndexOf(sender)
        _frmMain.Invoke(_frmMain.editClient, _clientlist.IndexOf(sender))
    End Sub
End Class