This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

php pastebin - collaborative irc debugging view php source

Paste #695

Posted by:
Posted on: 2026-06-04 20:14:41
Age: 10 days ago
Views: 24
Private Sub AddLine(ByVal who As String, ByVal Text As String)

    With rtbOutput

        .SelStart = Len(.Text)

        If who = "You" Then
            .SelBold = True
            .SelColor = RGB(0, 0, 255)
            .SelText = "You: "
            .SelBold = False
        Else
            .SelBold = True
            .SelColor = RGB(200, 0, 0)
            .SelText = "AI: "
            .SelBold = False
        End If

        .SelColor = RGB(0, 0, 0)
        .SelText = Text & vbCrLf

        ' Автопрокрутка вниз
        .SelStart = Len(.Text)
        .SelLength = 0

    End With

End Sub

Download raw | Create new paste

© BitByByte, 2026.
Downgrade Counter