Private Type Kind                                   '课本P60 在窗体定义时必须加上private
 i As Integer                                       '在标准模块中不加默认为public
 str As String * 20
End Type

Sub Kinds(Lei As Kind)

 Print Lei.i; Lei.str
End Sub

Sub Zhi(ByVal a%)

 Print a                                            '强制转换为形参的类型
End Sub

Private Sub Form_click()

 Call Zhi(7.87667586)

 Dim Str1 As Kind

 Str1.i = 10

 Str1.str = "Hello Word!"

 Call Kinds(Str1)                                   '???
End Sub

编译错误：Private Enum和用户定义类型不能作为参数、公共过程的返回值、公共数据成员或公共定义的字段使用

望指教，如何改？

Sub Kinds(Lei As Kind)
Print Lei.i; Lei.str
End Sub

这个函数,中使用了 用户定义的类型结构,

那么这个用户类型,就必须是在 标准模块中使用 public 定义的类型结构,而不能在窗体中使用 Private 进行定义.
Private Type Kind                                   '课本P60 在窗体定义时必须加上private
i As Integer                                       '在标准模块中不加默认为public
str As String * 20
End Type
你这样定义的,是无法通过编译的.必须要在标准模块,使用 PUBLIC 进行定义.

大哥，我按你说的改了，还不对呀

我现在这里没有VB ，没办法跟你测试。

如果不行，那么

Sub Kinds(Lei As Kind)
Print Lei.i; Lei.str
End Sub

也放到标准模块，使用 public  进行定义吧。
Form1.Print Lei.i; Lei.str
这行需要带上窗体的名字，或者把窗体传进去也行。

大哥谢谢了，这下对了。但我不明白这是为什么？