Ok so you boot up a textbox class. Getting this in, in my eyes
merely cosmetic. I used a module named programFunction with a string named tboxtext.
A Couple of Functions that take a string argument. They do all the checking, making
sure it is what was either in file or typed in. Then an event in the main form named
appendtext args are object and eventargs.(the norm?) Next a sub to handle the event.
Once done there inside handled sub. Make a for each for the string in the module.
inside the foreach append the variable for the statement and the new line property in
enviroment. So Above the for each you should have a line indicator appending.
For Example...

Imports MySql.Data.MySqlClient
Public Class Form1
    Private Event appendText(sender As Object, e As EventArgs)
    Private Event programTime(sender As Object, e As EventArgs)
    Private timeofProgram As Single
    Private currentCommand, previousCommand As String
    Private Const meText As String = "Form of Digital"
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tboxText = ""
        Timer1.Interval = 60.0F
        Timer1.Start()
        GroupBox1.Anchor = AnchorStyles.Right
        Tbox1.Anchor = AnchorStyles.Top
        Inputbox1.Anchor = AnchorStyles.Top
        Digitalabel1.Anchor = AnchorStyles.Top

        ''Mysql initalization here

        ProgramFunction.initMySql()

        ''End Mysql initialization

        ''Init logger
        ''ProgramFunction.initLogger()
    End Sub

    Private Sub elapseProgramTime() Handles MyClass.programTime
        If IsNothing(timeofProgram) Then
            Environment.Exit(0)
        ElseIf timeofProgram >= 100.0F Then
            timeofProgram = 0.0F
        Else
            timeofProgram += 1.0F
        End If
    End Sub
    Private Sub tboxAppend() Handles MyClass.appendText
        Me.Tbox1.AppendText(ProgramFunction.lineIndicator)
        For Each s As String In ProgramFunction.tboxText
            Me.Tbox1.AppendText(s)
        Next
        Me.Tbox1.AppendText(Environment.NewLine)

        If ProgramFunction.hasShown = True Then
            Me.Tbox1.AppendText(ProgramFunction.lineIndicator)
            For Each userData As Object In ProgramFunction.userData
                Try
                    Me.Tbox1.AppendText(CStr(userData))
                Catch ex As NullReferenceException
                    Me.Tbox1.AppendText("Less than 25 results. Exiting Sub..")
                    ProgramFunction.hasShown = False
                    Exit Sub
                End Try
            Next
            Me.Tbox1.AppendText(Environment.NewLine)
            ProgramFunction.hasShown = False
        End If
    End Sub

    Private Sub Digitalbutton1_Click(sender As Object, e As EventArgs) Handles Digitalbutton1.Click
        ProgramFunction.displayUsers()
        RaiseEvent appendText(Me, New EventArgs)
    End Sub

    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)

        Select Case m.Msg
            Case ProgramFunction.WndMsg.WM_ACTIVATE
            Case ProgramFunction.WndMsg.WM_KEYDOWN
                FindForm()
        End Select
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        RaiseEvent programTime(Me, New EventArgs())
    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        ProgramFunction.tboxText = "Xenos GM Tool"
        RaiseEvent appendText(Me, New EventArgs())
    End Sub

    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles MyBase.Resize
        Return
    End Sub

    Private Sub Digitalbutton4_Click(sender As Object, e As EventArgs) Handles Digitalbutton4.Click
        ProgramFunction.userlist.Clear()
        tboxText = ProgramFunction.updateUsers() + Environment.NewLine
        RaiseEvent appendText(Me, New EventArgs)
    End Sub

    Private Sub Digitalbutton5_Click(sender As Object, e As EventArgs) Handles Digitalbutton5.Click
        ProgramFunction.tboxText = ""
    End Sub

    Private Sub Inputbox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Inputbox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            currentCommand = Inputbox1.Text
            tboxText = "Command" + Inputbox1.Text + "has been entered use the ok button to confirm."
            RaiseEvent appendText(Me, New EventArgs)
            tboxText = ""
            If currentCommand = "set" Then
                Inputbox1.Clear()
                tboxText = "Set user name to find."
                RaiseEvent appendText(Me, New EventArgs)
                tboxText = "Clearing textbox click ok when name is entered."
                RaiseEvent appendText(Me, New EventArgs)
                tboxText = ""
            End If
        End If
    End Sub

    Private Sub Digitalbutton2_Click(sender As Object, e As EventArgs) Handles Digitalbutton2.Click
        If previousCommand > "" Then
            previousCommand = ""
            previousCommand = currentCommand
        End If
        If currentCommand = "help" Then
            tboxText = "Use the ok button to confirm commands entered"
            RaiseEvent appendText(Me, New EventArgs)
            tboxText = ""
            tboxText = "The clear button clears the main helper string for the append text event, saves room in program"
            RaiseEvent appendText(Me, New EventArgs)
            tboxText = ""
            tboxText = "So after using any querys remember to use the clear buttons or you will have a mixed up query or worse an error."
            RaiseEvent appendText(Me, New EventArgs)
            tboxText = ""
        End If
        If currentCommand = "accounts" Then

        End If

        If currentCommand = "set" Then
            tboxText = Inputbox1.Text
        End If

        If currentCommand = "users" Then
            For x = 0 To userlist.Count
                tboxText.Insert(x, userlist.ElementAt(x))
            Next
            RaiseEvent appendText(Me, New EventArgs)
        End If
    End Sub

    Private Sub Digitalbutton3_Click(sender As Object, e As EventArgs) Handles Digitalbutton3.Click
        previousCommand = currentCommand
        currentCommand = ""
    End Sub

    Private Sub Digitalbutton6_Click(sender As Object, e As EventArgs) Handles Digitalbutton6.Click
        Environment.Exit(0)
    End Sub

    Private Sub Digitalbutton7_Click(sender As Object, e As EventArgs) Handles Digitalbutton7.Click
        ProgramFunction.userbyName()
        RaiseEvent appendText(Me, New EventArgs)
    End Sub
End Class



Imports MySql.Data.MySqlClient
Imports System.Collections.Generic
Module ProgramFunction
#Region "Main Form Initialization"
    Dim form1 As New Form1
    Private conString As String
    Private sqlcon As MySqlConnection
    Private sqlcommand As MySqlCommand
    Const run As String = "running"
    Const formWidth As Integer = 800
    Const formHeight As Integer = 450
    Public Enum WndMsg
        WM_ACTIVATE = &H6
        WM_ACTIVATEAPP = &H1C
        WM_AFXFIRST = &H360
        WM_AFXLAST = &H37F
        WM_APP = &H8000
        WM_ASKCBFORMATNAME = &H30C
        WM_CANCELJOURNAL = &H4B
        WM_CANCELMODE = &H1F
        WM_CAPTURECHANGED = &H215
        WM_CHANGECBCHAIN = &H30D
        WM_CHANGEUISTATE = &H127
        WM_CHAR = &H102
        WM_CHARTOITEM = &H2F
        WM_CHILDACTIVATE = &H22
        WM_CLEAR = &H303
        WM_CLOSE = &H10
        WM_COMMAND = &H111
        WM_COMPACTING = &H41
        WM_COMPAREITEM = &H39
        WM_CONTEXTMENU = &H7B
        WM_COPY = &H301
        WM_COPYDATA = &H4A
        WM_CREATE = &H1
        WM_CTLCOLORBTN = &H135
        WM_CTLCOLORDLG = &H136
        WM_CTLCOLOREDIT = &H133
        WM_CTLCOLORLISTBOX = &H134
        WM_CTLCOLORMSGBOX = &H132
        WM_CTLCOLORSCROLLBAR = &H137
        WM_CTLCOLORSTATIC = &H138
        WM_CUT = &H300
        WM_DEADCHAR = &H103
        WM_DELETEITEM = &H2D
        WM_DESTROY = &H2
        WM_DESTROYCLIPBOARD = &H307
        WM_DEVICECHANGE = &H219
        WM_DEVMODECHANGE = &H1B
        WM_DISPLAYCHANGE = &H7E
        WM_DRAWCLIPBOARD = &H308
        WM_DRAWITEM = &H2B
        WM_DROPFILES = &H233
        WM_ENABLE = &HA
        WM_ENDSESSION = &H16
        WM_ENTERIDLE = &H121
        WM_ENTERMENULOOP = &H211
        WM_ENTERSIZEMOVE = &H231
        WM_ERASEBKGND = &H14
        WM_EXITMENULOOP = &H212
        WM_EXITSIZEMOVE = &H232
        WM_FONTCHANGE = &H1D
        WM_GETDLGCODE = &H87
        WM_GETFONT = &H31
        WM_GETHOTKEY = &H33
        WM_GETICON = &H7F
        WM_GETMINMAXINFO = &H24
        WM_GETOBJECT = &H3D
        WM_GETTEXT = &HD
        WM_GETTEXTLENGTH = &HE
        WM_HANDHELDFIRST = &H358
        WM_HANDHELDLAST = &H35F
        WM_HELP = &H53
        WM_HOTKEY = &H312
        WM_HSCROLL = &H114
        WM_HSCROLLCLIPBOARD = &H30E
        WM_ICONERASEBKGND = &H27
        WM_IME_CHAR = &H286
        WM_IME_COMPOSITION = &H10F
        WM_IME_COMPOSITIONFULL = &H284
        WM_IME_CONTROL = &H283
        WM_IME_ENDCOMPOSITION = &H10E
        WM_IME_KEYDOWN = &H290
        WM_IME_KEYLAST = &H10F
        WM_IME_KEYUP = &H291
        WM_IME_NOTIFY = &H282
        WM_IME_REQUEST = &H288
        WM_IME_SELECT = &H285
        WM_IME_SETCONTEXT = &H281
        WM_IME_STARTCOMPOSITION = &H10D
        WM_INITDIALOG = &H110
        WM_INITMENU = &H116
        WM_INITMENUPOPUP = &H117
        WM_INPUTLANGCHANGE = &H51
        WM_INPUTLANGCHANGEREQUEST = &H50
        WM_KEYDOWN = &H100
        WM_KEYFIRST = &H100
        WM_KEYLAST = &H108
        WM_KEYUP = &H101
        WM_KILLFOCUS = &H8
        WM_LBUTTONDBLCLK = &H203
        WM_LBUTTONDOWN = &H201
        WM_LBUTTONUP = &H202
        WM_MBUTTONDBLCLK = &H209
        WM_MBUTTONDOWN = &H207
        WM_MBUTTONUP = &H208
        WM_MDIACTIVATE = &H222
        WM_MDICASCADE = &H227
        WM_MDICREATE = &H220
        WM_MDIDESTROY = &H221
        WM_MDIGETACTIVE = &H229
        WM_MDIICONARRANGE = &H228
        WM_MDIMAXIMIZE = &H225
        WM_MDINEXT = &H224
        WM_MDIREFRESHMENU = &H234
        WM_MDIRESTORE = &H223
        WM_MDISETMENU = &H230
        WM_MDITILE = &H226
        WM_MEASUREITEM = &H2C
        WM_MENUCHAR = &H120
        WM_MENUCOMMAND = &H126
        WM_MENUDRAG = &H123
        WM_MENUGETOBJECT = &H124
        WM_MENURBUTTONUP = &H122
        WM_MENUSELECT = &H11F
        WM_MOUSEACTIVATE = &H21
        WM_MOUSEFIRST = &H200
        WM_MOUSEHOVER = &H2A1
        WM_MOUSELAST = &H20D
        WM_MOUSELEAVE = &H2A3
        WM_MOUSEMOVE = &H200
        WM_MOUSEWHEEL = &H20A
        WM_MOUSEHWHEEL = &H20E
        WM_MOVE = &H3
        WM_MOVING = &H216
        WM_NCACTIVATE = &H86
        WM_NCCALCSIZE = &H83
        WM_NCCREATE = &H81
        WM_NCDESTROY = &H82
        WM_NCHITTEST = &H84
        WM_NCLBUTTONDBLCLK = &HA3
        WM_NCLBUTTONDOWN = &HA1
        WM_NCLBUTTONUP = &HA2
        WM_NCMBUTTONDBLCLK = &HA9
        WM_NCMBUTTONDOWN = &HA7
        WM_NCMBUTTONUP = &HA8
        WM_NCMOUSEHOVER = &H2A0
        WM_NCMOUSELEAVE = &H2A2
        WM_NCMOUSEMOVE = &HA0
        WM_NCPAINT = &H85
        WM_NCRBUTTONDBLCLK = &HA6
        WM_NCRBUTTONDOWN = &HA4
        WM_NCRBUTTONUP = &HA5
        WM_NCXBUTTONDBLCLK = &HAD
        WM_NCXBUTTONDOWN = &HAB
        WM_NCXBUTTONUP = &HAC
        WM_NCUAHDRAWCAPTION = &HAE
        WM_NCUAHDRAWFRAME = &HAF
        WM_NEXTDLGCTL = &H28
        WM_NEXTMENU = &H213
        WM_NOTIFY = &H4E
        WM_NOTIFYFORMAT = &H55
        WM_NULL = &H0
        WM_PAINT = &HF
        WM_PAINTCLIPBOARD = &H309
        WM_PAINTICON = &H26
        WM_PALETTECHANGED = &H311
        WM_PALETTEISCHANGING = &H310
        WM_PARENTNOTIFY = &H210
        WM_PASTE = &H302
        WM_PENWINFIRST = &H380
        WM_PENWINLAST = &H38F
        WM_POWER = &H48
        WM_POWERBROADCAST = &H218
        WM_PRINT = &H317
        WM_PRINTCLIENT = &H318
        WM_QUERYDRAGICON = &H37
        WM_QUERYENDSESSION = &H11
        WM_QUERYNEWPALETTE = &H30F
        WM_QUERYOPEN = &H13
        WM_QUEUESYNC = &H23
        WM_QUIT = &H12
        WM_RBUTTONDBLCLK = &H206
        WM_RBUTTONDOWN = &H204
        WM_RBUTTONUP = &H205
        WM_RENDERALLFORMATS = &H306
        WM_RENDERFORMAT = &H305
        WM_SETCURSOR = &H20
        WM_SETFOCUS = &H7
        WM_SETFONT = &H30
        WM_SETHOTKEY = &H32
        WM_SETICON = &H80
        WM_SETREDRAW = &HB
        WM_SETTEXT = &HC
        WM_SETTINGCHANGE = &H1A
        WM_SHOWWINDOW = &H18
        WM_SIZE = &H5
        WM_SIZECLIPBOARD = &H30B
        WM_SIZING = &H214
        WM_SPOOLERSTATUS = &H2A
        WM_STYLECHANGED = &H7D
        WM_STYLECHANGING = &H7C
        WM_SYNCPAINT = &H88
        WM_SYSCHAR = &H106
        WM_SYSCOLORCHANGE = &H15
        WM_SYSCOMMAND = &H112
        WM_SYSDEADCHAR = &H107
        WM_SYSKEYDOWN = &H104
        WM_SYSKEYUP = &H105
        WM_TCARD = &H52
        WM_TIMECHANGE = &H1E
        WM_TIMER = &H113
        WM_UNDO = &H304
        WM_UNINITMENUPOPUP = &H125
        WM_USER = &H400
        WM_USERCHANGED = &H54
        WM_VKEYTOITEM = &H2E
        WM_VSCROLL = &H115
        WM_VSCROLLCLIPBOARD = &H30A
        WM_WINDOWPOSCHANGED = &H47
        WM_WINDOWPOSCHANGING = &H46
        WM_WININICHANGE = &H1A
        WM_XBUTTONDBLCLK = &H20D
        WM_XBUTTONDOWN = &H20B
        WM_XBUTTONUP = &H20C
    End Enum
    Private Function initForm1() As Boolean

        form1.Width = formWidth
        form1.Height = formHeight
        form1.Text = "Xeno.VB"
        Application.Run(form1)

        Return True
    End Function
    Sub Main()
        initForm1()
        While run = "running"
            Application.DoEvents()
            If canresizeForm() = True Then
                form1.Size = New Size(formWidth, formHeight)
            Else
                form1.Size = New Size(formWidth, formHeight)
            End If

        End While
    End Sub

    Function canresizeForm() As Boolean
        If IsNothing(formWidth) Then
            Return False
        End If
        If IsNothing(formHeight) Then
            Return False
        End If
        Return True
    End Function
#End Region

#Region "InitializeMysql()"
    Private userID As Integer
    Private dt As DataTable
    Public userlist As List(Of String)
    Public hasShown As Boolean
    Public Function initMySql() As Boolean
        conString = "Server=localhost;Database=netvx;Uid=root;Pwd=mysql;"
        sqlcon = New MySqlConnection(conString)

        sqlcommand = New MySqlCommand("SELECT * FROM users", sqlcon)

        dt = New DataTable("users", "vxusers")

        userlist = New List(Of String)
        hasShown = False
        Return True
    End Function



#End Region

#Region "Tbox Functions"
    Public Const lineIndicator As String = ">>"
    Public tboxText As String
    Public userData(25) As String
    Private Function checkLine(line As String) As String
        If line = "" Or IsNothing(line) Or IsNothing(lineIndicator) Then
            Return "Invalid Command"
        End If
        Return "Command Successfull"
    End Function
    Public Function displayUsers() As String()
        sqlcon.Open()

        sqlcommand.ExecuteNonQuery()

        Dim dr As MySqlDataReader = sqlcommand.ExecuteReader()

        While dr.Read()

            If dr.HasRows Then
                For x = 0 To dr.FieldCount - 1
                    userData.SetValue(CStr(dr.Item(x)), x)
                    userlist.Add(CStr(dr.Item(x)))
                Next
            Else
                Return {"No rows found."}
            End If
        End While

        sqlcon.Close()

        hasShown = True
        Return userData
    End Function

    Public Function userbyName() As String()
        sqlcon.Open()
        sqlcommand.CommandText = "Select (name) FROM users value =" + tboxText

        sqlcommand.ExecuteNonQuery()



        Dim dr As MySqlDataReader = sqlcommand.ExecuteReader()

        While dr.Read()
            If dr.HasRows Then
                For x = 0 To dr.FieldCount - 1
                    userData.SetValue(CStr(dr.Item(x)), x)
                Next
            Else
                Return {"No Rows Found."}
            End If
        End While


        sqlcon.Close()

        Return userData
    End Function
    Public Function updateUsers() As String
        userData = Nothing
        Return "User list cleared!"
    End Function
    Public Sub tboxWrite()
        If IsNothing(WriteTextBox) Then

        End If
    End Sub
    Public Function WriteTextBox() As String
        Return checkLine(tboxText)
    End Function
#End Region

#Region "DigitalLog"
    Private fs As IO.FileStream
    Private logCount As Integer
    Private data As String
    Private buffer As Byte
    Public Function initLogger() As Boolean
        logCount = 0
        fs = IO.File.Create(Application.StartupPath + "/Log/" + "log" + logCount.ToString())
        logCount += 1



        Return True
    End Function
#End Region
End Module

No, but uh i can not really think of another way to append text
so nicely. Plus if you have some sort of loop going on you can
slow down the text output rate.

This article has been dead for over six months. Start a new discussion instead.