Public Class frmMain
    Dim myServer As clsServer
    Public Delegate Sub writeRowDelegate(ByVal clientIP As String)
    Public MainDelegate As writeRowDelegate = AddressOf writeRow
 
    Public Delegate Sub updateRowDelegate(ByVal pos As Int32)
    Public updateDelegate As updateRowDelegate = AddressOf updateRow
 
    Public Delegate Function newChat() As frmChat
    Public showChatWindow As newChat = AddressOf newChatWindow
 
    Public Sub New()
        MyBase.New()
        InitializeComponent()
        myServer = New clsServer(Me)
    End Sub
 
 
    Public Sub writeRow(ByVal IpAddress As String)
        Dim myItem As ListViewItem = ListView1.Items.Add(IpAddress)
        ListView1.Items.Item(myItem.Index).SubItems.Add(New _
          ListViewItem.ListViewSubItem)
        ListView1.Items.Item(myItem.Index).SubItems.Add(New _
        ListViewItem.ListViewSubItem)
        ListView1.Items.Item(myItem.Index).SubItems.Add(New _
        ListViewItem.ListViewSubItem)
        ListView1.Items.Item(myItem.Index).SubItems.Add(New _
        ListViewItem.ListViewSubItem)
        ListView1.Items.Item(myItem.Index).SubItems.Add(New _
        ListViewItem.ListViewSubItem)
        ListView1.Items.Item(myItem.Index).SubItems.Add(New _
        ListViewItem.ListViewSubItem)
    End Sub
 
    Public Sub updateRow(ByVal position As Int32)
        Dim myInfoObj As clsInfo = myServer.clientInfo.Item(position + 1)
 
        'IP
        'ListView1.Items.Item(position).SubItems(0).Text = myInfoObj.getHostname
        MessageBox.Show(ListView1.Items.Item(position).SubItems(0).Text)
        'Computername
        'ListView1.Items.Item(position).SubItems(1).Text = myInfoObj.getHostname
        'VNC Aktiv
        'ListView1.Items.Item(pos).SubItems(2).Text = myInfoObj.getHostname
        'VNC Version
        ListView1.Items.Item(position).SubItems(3).Text = _
          myInfoObj.getVncversion
        'VNirsprg aktiv
        'ListView1.Items.Item(pos).SubItems(4).Text = myInfoObj.getHostname
        'Virdef Version
        'ListView1.Items.Item(pos).SubItems(5).Text = myInfoObj.getHostname
        'HC Version
        'ListView1.Items.Item(pos).SubItems(6).Text = myInfoObj.getHostname
    End Sub
 
    Public Delegate Function ShowDialogHandler() As DialogResult
 
    Public Function newChatWindow() As frmChat
 
        Dim sd As ShowDialogHandler
        Dim iasr As IAsyncResult
 
        Dim chat As frmChat = New frmChat
        sd = New ShowDialogHandler(AddressOf chat.ShowDialog)
        iasr = sd.BeginInvoke(Nothing, Nothing)
 
        Return New frmChat
    End Function
 
#Region "MainMenu Items"
    Private Sub miServerstart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles miServerstart.Click
        Me.StatusBarPanel1.Text = "Server aktiv"
        myServer.start()
    End Sub
#End Region
End Class