If Text1.Text = "" Then

   MsgBox "请输入IP地址!"
   
   Exit Sub
   
ElseIf Text2.Text = "" Then

   MsgBox "请输入监听端口!"
   
   Exit Sub
   
End If

Dim f, Index

For f = 0 To Listen.UBound

     If f = Listen.UBound Then
   
       Load (Listen.UBound + 1)-----------------------------------------------------此行出错
      
    End If
      
    If Listen(f).State = 0 Then
   
       Index = f
      
    End If
         
Next

With Listen

     .RemoteHost = Text1.Text
     
     .RemotePort = Text2.Text
     
End With

Listen.Connect

Picture1.Print "正在连接......"

End Sub

For f = 0 To Listen.UBound

     If f = Listen.UBound Then--------------------------------------------此行出错
   
        Load Listen((Listen.UBound + 1))
      
    End If
      
    If Listen(f).State = 0 Then
   
       Index = f
      
    End If
         
Next