Public open_chat_window_objects() As chat_window
    Public online As Boolean = False
    Private scratch, send_responce, send_debug As String
    Private Sub recieve_umsg(ByVal sender, ByVal message)
        For Each username As String In open_chat_windows
            If username = sender Then
                'We already have an open window.
                open_chat_window_objects(sender).Show()
                open_chat_window_objects(sender).append(message)
            Else
                'We need to spawn a new window
                open_chat_window_objects(sender) = New chat_window
                open_chat_window_objects(sender).Show()
                open_chat_window_objects(sender).start_chat(sender)
                open_chat_window_objects(sender).append(message)
                'open_chat_windows(sender) = sender
            End If
        Next
    End Sub