BBCodeView1.Text = BuildMessage("text", "erel", DateTime.Now)
End Sub
Private Sub BuildMessage (Text As Object, User As String,timeX As Long) As String
Dim output As String
output=$"[Alignment=Left][b]${User}[/b]${CRLF}${Text}[url="https://www.b4x.com"] Link [/url]${CRLF}[color=#787878][TextSize=10]${DateTime.Time(timeX)}[/TextSize][/color][/Alignment]"$
Return output
End Sub
Sub BBCodeView1_LinkClicked (URL As String)
Log(URL)
End Sub