Private Sub Form_Load()

Command2.Enabled = False

Command5.Enabled = False

Command3.Enabled = False

Command6.Enabled = False

With ListView1

     .ColumnHeaders.Add "l", "a", "计算机名", ListView1.Width / 4------------------------------------------此行出错
     
     .ColumnHeaders.Add "2", "b", "IP地址", ListView1.Width / 4
     
     .ColumnHeaders.Add "3", "c", "监听端口", ListView1.Width / 4
     
     .ColumnHeaders.Add "4", "d", "连接状态", ListView1.Width / 4
     
End With

End Sub

listview控件有四种显示模式
有列头的只有在报表模式下，
代码中少了模式设置   .View = lvwReport

我设置了还是那一行出错

我在电脑尝试，好像是索引1，你重新录下试试，我这没问题

谢谢,问题已解决

又出错了,错误代码35600,我删掉第一行后,IP地址那一列出错

按F8 一行一行调试