Sub creatuserpersonlist(Text As String)
Dim parammsgnum() As String = Regex.Split("\~", Text)
Dim usr As Person
usr.name = parammsgnum(0)
usr.num = parammsgnum(1)
Persons.Add(usr)
Persons.SortType("num", True)
xclv.Clear
For i = 0 To Persons.Size - 1
Dim usr As Person
usr = Persons.Get(i)
xclv.Add(Createuserafterclearlist(usr.name, xclv.AsView.Width, 38dip), usr.name)
Sleep(0)
Next
End Sub