小弟写了一段程序，在第一个sub 即：Private Sub Command1_Click()之前有这样的定义
Public Type Mode
han(10) As Double
End Type
Dim ModeArray(3) As Mode
---------------------------------------------------
Private Sub Command1_Click()

一运行起来有错误提示说：can't define a public user-defined type within a private object module

请问各位高人应该如何解决？
多谢！

多谢楼上的朋友
可是改成Private Type后又出现一个问题。
小弟在Private Sub Command1_Click()重要调用一个函数，具体代码如下：
Public Sub Command1_Click()

Dim aa As Integer
Dim bb As Boolean

For aa = 0 To 2
bb = HanCal(ModeArray(aa), aa)
Next aa

End Sub
-------------------------------------------
Function HanCal(ModeCal As Mode, jj As Integer) As Boolean
……………………
End function

结果运行后又如下错误提示：
Private Enum and user defined types can't be used as parameters or return types of public procedures, public data members or fields of public user defined types.
小弟初学VB，不知道什么意思，不知道该怎么改正。
请各位高人指教！
谢谢！

那小弟还要请教各位高人一下，还有没有别的办法能解决这样的问题？
因为这个自定义类型的变量真的在以后程序中要用到的啊，要是函数调用不了的话那边这个程序就没有一点用了。
请各位高人指教！
谢谢！