我是个初学者，请问如何在中自定义个过程？如何为ListView添加项目?

Question

1、
    
      Option Explicit      Private Sub Form_Load()        Dim clmAdd As ColumnHeader
        Dim itmAdd As ListItem        'Add two Column Headers to the ListView control
        Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Name")
        Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Date")        'Set the view property of the Listview control to Report view
        ListView1.View = lvwReport        'Add data to the ListView control
        Set itmAdd = ListView1.ListItems.Add(Text:="Joe")
        itmAdd.SubItems(1) = "05/07/97"        Set itmAdd = ListView1.ListItems.Add(Text:="Sally")
        itmAdd.SubItems(1) = "04/08/97"        Set itmAdd = ListView1.ListItems.Add(Text:="Bill")
        itmAdd.SubItems(1) = "05/29/97"        Set itmAdd = ListView1.ListItems.Add(Text:="Fred")
        itmAdd.SubItems(1) = "05/17/97"        Set itmAdd = ListView1.ListItems.Add(Text:="Anne")
        itmAdd.SubItems(1) = "04/01/97"      End Sub2、
call AddList("sss",2)
或
AddList "sss",2

Answer 1

呵呵，如果返回东西，需要家括号如：
if msgbox("aa",vbyesno,"测试")=vbyes then 
msgbox "haha"
end if如果直接用，不用加括号体会上面两个Msgbox的使用方法