实时错误13，这句话时提示错误，不知道是什么原因

Question

Dim szip(20) As Byte
Dim sztype(20) As Byte, szname(30) As Byte, szid(20) As Byte, szphone(20) As Byte
Dim Port As Long

DTU_GetClientInfo m_hClient, szip(0), Port, sztype(0), szname(0), szid(0), szphone(0)

Dim lv As ListItem
Set lv = ListClient.ListItems.Add(, , StrConv(szip, vbUnicode))
程序如上，就是在运行到Set lv = ListClient.ListItems.Add(, , StrConv(szip, vbUnicode))

Answer 1

ListView1.View = lvwReport '显示风格ListView1.Appearance = ccFlat '平面显示ListView1.BorderStyle = ccNone '外框风格ListView1.LabelEdit = lvwManual '不允许即时编辑标签ListView1.MultiSelect = True '允许多选ListView1.Gridlines = True '显示网格线ListView1.FullRowSelect = True '整行选取ListView1.FlatScrollBar = False '使用三维的滚动条ListView1.ColumnHeaders.Clear '清除默认列标头ListView1.ColumnHeaderIcons = ImageList1 '设置列标头图象集合ListView1.Icons = ImageList1 '设置大图标集合ListView1.SmallIcons = ImageList1 '设置小图标集合'以下为列标头设置ListView1.ColumnHeaders.Add , , "状态", ListView1.Width / 4, , 4ListView1.ColumnHeaders.Add , , "姓名", ListView1.Width / 4, lvwColumnCenter, 5ListView1.ColumnHeaders.Add , , "手机", ListView1.Width / 4, lvwColumnCenter, 6ListView1.ColumnHeaders.Add , , "地址", ListView1.Width / 4, lvwColumnCenter, 7'以下为添加数据ListView1.ListItems.Add , , "待发", , 1 '状态ListView1.ListItems.Item(1).SubItems(1) = "张三" '姓名ListView1.ListItems.Item(1).SubItems(2) = "123456789" '手机ListView1.ListItems.Item(1).SubItems(3) = "学院路" '地址ListView1.ListItems.Add , , "待发", , 2 '状态ListView1.ListItems.Item(2).SubItems(1) = "李四" '姓名ListView1.ListItems.Item(2).SubItems(2) = "987654321" '手机ListView1.ListItems.Item(2).SubItems(3) = "学清路" '地址

Answer 2

去掉那个DIM IV as 那一行语句，我也碰到和你一样的问题，我也不是很清楚这是为什么，但是这种做法是正确的

Answer 3

就是你定义的类型跟现在赋值值后不一样咯