'//Usercontrol内
Public Sub YouArray(ArrayBuf() As String)
    Dim i As Long
    ‘例
    ’For i = 0 To UBound(ArrayBuf)
   ‘   数组x(i)=ArrayBuf(i)     
   ’ Next i
End Sub'//Form内call Usercontrol.YouArray(k())