哪位高人可以演示VB中listview控制的例子吗?最好语法后面注释中文

下面这个函数是在vb.net里写的，在vb里的思路也差不多这个样子：

Public Function addLst() As Boolean'定义动态向列表框添加记录的函数

lstUser.Clear() '清空列表框
’打开数据库
mySql = "select * from sqlusers"
rs = myRs(mySql, sqlIP, 1)
‘定义列表框显示类型
lstUser.View = View.Details

Dim i As Integer
If rs.Fields.Count > 0 Then
'添加列表框列标题项目
For i = 1 To rs.Fields.Count
lstUser.Columns.Add(rs.Fields.Item(i - 1).Name)
Next
'添加列表框数据内容
If rs.RecordCount > 0 Then
rs.MoveFirst()
For i = 1 To rs.RecordCount
lstUser.Items.Add(rs("用户名").Value)
lstUser.Items.Item(i - 1).SubItems.Add(rs("密码").Value)
lstUser.Items.Item(i - 1).SubItems.Add(rs("用户类型").Value)
rs.MoveNext()
Next
End If
End Function