Private Function writerGenerate() As Boolean
        Dim s As String = ""
        Dim i As Integer
        myThread.Sleep(100)
        Do
            Application.DoEvents()
            If (arrayCount(buffer) >= msgsSend) Then
                isWriter = False
                For i = 0 To arrayCount(buffer)
                    s &= buffer(i)
                    If (i <> (arrayCount(buffer) - 1)) Then
                        s &= ChrW(10)
                    End If
                Next i
                DisplayText(s & vbCrLf)
                Send(s)
            Else
                srvConfig.Items.Add("test")
                buffer(arrayCount(buffer)) = Rnd()
            End If
            myThread.Sleep(100)
            Application.DoEvents()
            '    'txtSend.Text = Rnd()
        Loop Until (isWriter = False)
    End Function