Public Sub NewData (data() As Byte)
Dim msg As String
msg = BytesToString(data, 0, data.Length, "UTF-8")
Dim param As String = msg
Dim paramnum() As String = Regex.Split("\~", param)
For i = 0 To paramnum.Length-1
XVIWLST.Add(CreateListItem(paramnum(i), XVIWLST.AsView.Width, 50dip), paramnum(i))
Next
End Sub