实时错误35613
在ImageList可以使用之前必须将它初始化
代码如下:
Private Sub Form_Load()
Dim i As Integer
Dim mylistitem As ListItem
Set mylistitem = ListView1.ListItems.Add(, "mymount", "设置", 1)
Set mylistitem = ListView1.ListItems.Add(, "myappend", "添加", 2)
Set mylistitem = ListView1.ListItems.Add(, "mymonitor", "显示", 3)
Set mylistitem = ListView1.ListItems.Add(, "mydelete", "删除", 4)
StatusBar1.SimpleText = "共" & ListView1.ListItems.Count & "对象"
End Sub

应该怎么解决啊.谢谢!!!

呃 你没用到ImageList啊……
查查MSDN

现已解决,,谢谢!!!!!!!!!!