VB

Function getpointvalue(ByVal SendData As String) As String'Set up local variables
    Dim data() As Param_Byname_Data
    Dim Count As Integer
    Dim i As Integer
    Dim status As Long
    Dim period As Long
    Dim NameArray As Variant      
    Dim getdatavalue As String
    Dim getdatastatus As String     
'Start routine
    NameArray = ArraysFromString(SendData, 3, Count)
    If Count < 1 Then Exit Function
    ReDim data(Count)
    For i = 0 To Count - 1
        data(i).point_name = NameArray(0, i)
        data(i).param_name = NameArray(1, i)
        If Not IsNumeric(NameArray(2, i)) Then
            MsgBox ("Parameter Offset " & i + 1 & " must be a numeric expression.")
            Exit Function
        End If
        data(i).param_offset = CLng(NameArray(2, i))
    Next 'i 
    period = GetPeriod()  
    status = rHsc_Param_Value_Bynames("localhost", period, Count, data) 
    If (status = 0) Or (status = 33690) Then
        'Valid or Partial Function Fail
        getdatavalue = data(0).param_value
        getdatastatus = data(0).status
        If Count > 1 Then
            For i = 1 To Count - 1
                getdatavalue = getdatavalue & ", " & data(i).param_value
                getdatastatus = getdatastatus & ", " & data(i).status
            Next 'i
        End If
    End If
    getpointvalue = getdatavalue
End Function
这是我的程序，运行的时候，跑到Dim data() As Param_Byname_Data 这句话，就提示用户类型定义未定义，是怎么回事啊，请各位高手帮忙啊