动态填加listview控件，不管该控件有没有在工程中引用。

Dim WithEvents ListView1 As VBControlExtenderPrivate Sub Form_Load()Licenses.Add "Comctl.ListViewctrl.1", "x"Set ListView1 = Me.Controls.Add("Comctl.ListViewctrl.1", "listview1", Me)ListView1.Visible = TrueListView1.Move 0, 0, 3000, 2000End Sub

新创建的控件其事件脚本如何处理（以楼上创建出的ListView1）。在VB编辑器上方左边控件列表中选取ListView1，右边事件列表中选取ObjectEvent，该事件中可处理动态创建控件的所有事件，其中Info为事件对象参数Info.Name为事件名称，而Info.EventParameters为事件参数集合对象。故事件脚本可实现如下：Private Sub ListView1_ObjectEvent(Info As EventInfo)    Select Case Info.Name        Case "BeforeLabelEdit"            If 你想取消LabelEdit then                Info.EventParameters (1)=True  'Info.EventParameters (1)就是该事件的Cancel参数            else            end if        Case "Click"        Case "ItemClick"    End Select    Debug.Print Info.Name & "事件触发了"End Sub