Public Sub CT(ByVal Text As String, ByVal Color As System.Drawing.Color)
        Log.SelectionStart = 0
        Log.SelectionLength = 0
        Log.AppendText(Trim(Text))
        Log.SelectionStart = Log.Find(Trim(Text))
        Log.SelectionLength = Len(Text)
        Log.SelectionColor = Color
    End Sub