Sub SendMex(Name As String, Text As String)
Dim p As Panel
p.Initialize("p")
p.Top = 0
p.Left = 0
p.Color = Colors.Transparent
Dim m As mex
m.Name = Name
m.Text = Text
CustomListView1.Add(p, m)
CustomListView1.JumpToItem(CustomListView1.Size - 1)
End Sub