Public Sub log(ByVal iText As String)
    Me.txtConsole = IIf(Not IsNull(Me.txtConsole), Me.txtConsole & vbCrLf, Empty) & iText
    Me.txtConsole.SelStart = Len(Me.txtConsole)
    Me.txtConsole.SelLength = 0
End Sub