Private Sub Media(Width As Int, Height As Int, URL As String) As String
Dim pnl As B4XView = xui.CreatePanel("")
pnl.SetLayoutAnimated(0, 0, 0, Width, Height)
SMM.SetMedia(pnl, URL)
Dim name As String = "view" & BBCodeView1.Views.Size
BBCodeView1.Views.Put(name, pnl)
Return $"[View=${name}/]"$
End Sub