VB类型不匹配

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