程序代码：

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