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

应该是  Load Listen((Listen.UBound + 1))
(Listen.UBound + 1)返回的是long，不是对象

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

按理此行不应出错啊，出的什么错？有没有设置数组控件？

For f = 0 To Listen.UBound

     If f = Listen.UBound Then
我是小白，这样的写法没见过，是不是应该写成
For f = 0 To UBound(Listen)

     If f = UBound(Listen) Then
不知道对不对！

记得对于数组控件（对象）的最大下标应该使用 ：控件对象.UBound ，对于数组变量的最大下标应该使用 ：UBound(变量名)
因此是不是 For f = 0 To Listen.UBound 是正确的。

Load Listen((Listen.UBound + 1)) 应该是 Load Listen(Listen.UBound + 1) 不需要二个括号

Dim xx As Integer
For f = 0 To Listen.UBound
     If f = Listen.UBound Then
        xx = Listen.UBound + 1    '必须使用变量，不然 Listen.UBound 会发生变化
        Load Listen(xx)   '添加数组控件
        Listen(xx).Visible = True   '使新添加控件可见
        Listen(xx).Top = 1200: Listen(xx).Left = 3480   '设置新控件的位置
    End If
Next f

经调试没有错误。