例如在模块中
[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]