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

我设置了还是那一行出错

谢谢,问题已解决

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