因为类型在公共范围内使用，必需要公共范围内定义。

怎么在公共范围内定义啊

在模块中 使用Public

例如在模块中
[code:30ba443891]Public Type myType
    a As String
    b As String
End Type

Public Function bbb(a As myType)
'
End Function[/code:30ba443891]
在窗体中就可以这样用了
[code:30ba443891]Private Sub Command1_Click()
Dim c As myType
bbb c
End Sub[/code:30ba443891]

明白了，谢谢