vb 中怎样将自定义用户类型作为函数的参数传递

vb 中怎样将自定义用户类型作为函数的参数传递

Private Function BiJiao(ByRef CP As MC, ByRef C_P As MC) As Integer  ’intger写错了
    p = 0
    Sum = 0
    For i = 1 To 6
        For j = 1 To 6
            If CP.Hong(i) = C_P.Hong(i) Then Sum = Sum + 1
        Next j
    Next i
    If CP.Lan = C_P.Lan Then p = 7    ‘CP.Hong.Lan写错了
    BiJiao = Sum + p  ‘BiJiao()不能打括号
End Function

Private Type MC '先定义类型
Id As String
Hong(1 To 6) As Integer
Lan As Integer
End Type
Dim CP As MC '后用定义的类型定义变量
Dim C_P As MC追问我在通用代码段 已经定义了呀