VB里的List1控件

怎么样才可以单击里面选项的时侯出现几个选项，第一个有选中 所以会出现这个可以打勾的  第二个没有打勾 所以不会出现 VB 控件 --------------------编程问答--------------------
附上图做参考 --------------------编程问答-------------------- 问题不能理解，楼主说清楚一些 --------------------编程问答--------------------
像百度云传上的视频一样，鼠标指上去的时侯会出现打勾的选项或者是点击播放。就像百度云自己传上的视频自己看的那样 ，附上图了 不知道怎么样的话可以看下百度云 --------------------编程问答-------------------- 自制控件了，用几个现有控件合成 --------------------编程问答-------------------- ListBox 的 Style 属性可以在编辑界面下设置成 1 - CheckBox。下例中，将 List1 如此设置：

Option Explicit



Private Sub Command1_Click()

Dim i As Integer



List2.Clear

For i = 0 To List1.ListCount - 1

    If List1.Selected(i) Then List2.AddItem List1.List(i)

Next i

End Sub



Private Sub Form_Load()

Dim i As Integer

For i = 1 To 24

    List1.AddItem i

Next i

End Sub

选中 List1 中的若干列表项，单击 Command1，可将其复制到 List2。 --------------------编程问答-------------------- 我要的不是将列表一的复制到列表二，而是要可以给视频打勾的功能 打勾的就采用控件Check1  单击选项的时侯就会出现那个选项的打勾，然后可以使用删除的代码把那个选项删除，多选多删 --------------------编程问答-------------------- 只是想演示 CheckBox 类型的 ListBox 使用，没想让你学复制。

请原谅我的愚昧，你的问题我还是没看懂。 --------------------编程问答-------------------- --------------------编程问答-------------------- 这不怪你 要怪只能怪我自己说不清楚要什么样的
--------------------编程问答-------------------- 其实我要的就是这样的，鼠标一指到选项的时侯后面就会显示几个对选项做选择的选项，可以删除什么的，我有用把它圈起来哦 看一下就懂了 --------------------编程问答-------------------- 这个阿，vb6好像没有系统的控件能达到

.net里面datagridview你看看，不成买一个第三方控件 --------------------编程问答-------------------- 呜呜，第三方控件的话 谁有呀 发给我好不好

补充：VB ,  控件