Private Sub Timer1_Timer()

   If ListView1.ListItems(0).SubItems(0) = "" Then----------------------------------------此行出错
   
      Exit Sub
      
   End If

   Select Case Winsock2(ListView1.SelectedItem.Index).State
   
          Case 0
         
               Label4.Caption = "工作状态:" & "未连接"
               
          Case 2
         
               Label4.Caption = "工作状态:" & "正在监听......"
               
          Case 4
         
               Label4.Caption = "工作状态:" & "正在解析域名......"
               
          Case 6
         
               Label4.Caption = "工作状态:" & "正在连接......"
               
          Case 7
         
               Label4.Caption = "工作状态:" & "已连接"
               
          Case 8
         
               Label4.Caption = "工作状态:" & "对方正在关闭连接......"
               
          Case 9
         
               Label4.Caption = "工作状态:" & "连接错误"
               
   End Select

End Sub

记得 ListView1 的索引是从 1 开始的吧。

索引设成0,1都错