Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim ListView1
Set ListView1=ScreenItems("控件1")
ListView1.ListItems.clear
ListView1.ColumnHeaders.clear
ListView1.ColumnHeaders.Add, ,"NO.",30
ListView1.ColumnHeaders.Add, ,"bb",70
ListView1.ColumnHeaders.Add, ,"cc",150
ListView1.ColumnHeaders.Add, ,"dd",150
ListView1.ColumnHeaders.Add, ,"ee",150
Dim row
Dim oItem
row = 0
Do While row<10
row=row+1
Set oItem=ListView1.ListItems.Add()
oItem.Text = Left( CStr(row),5)
oItem.SubItems(1) = "hjhj"
oItem.SubItems(2) = "ssss"
oItem.SubItems(3) = "hhhh"
oItem.SubItems(4) = "ewww"
Loop
End Sub