clv2.InsertAt(0,CreateListItem("dd",clv2.AsView.Width, 60dip), $"Item !!!"$)
''''''''''''''''''''''' creat panel function''''''''''''''''''''''''''
Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.SetLayout(0, 0, Width, Height)
p.LoadLayout("cellitem2")
Label1.Text = Text
Return p
End Sub