超简单，高手就一句话，马上结贴

Question

Public Function IndexToIP(sock() As Winsock, i As Integer) As String
 想把，winsock1控件数组传进来
End FunctionPrivate Sub Form_Load()
Text1.Text = IndexToIP(Winsock1, 0)'winsock１是一个，控件数组　
End Sub就是想把，一个，winsock控件数组穿进一个函数里

Answer 1

sock() As Winsock//没有这个定义...

Answer 2

不知道这是不是你需要的：Private Sub Command1_Click()Dim objA(2) As ObjectSet objA(0) = Me.MSComm1(0)
Set objA(1) = Me.MSComm1(1)
Set objA(2) = Me.MSComm1(2)
objT objAEnd Sub
Private Function objT(objTe() As Object) As BooleanDim objT2 As ObjectDim i As Integeri = UBound(objTe)For i2 = 0 To i
    Debug.Print objTe(i2).Tag    '自己改成其它需要的代码。
NextEnd Function