小弟写了一段程序，在第一个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

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

type 在私有模組 (例如 Form, UserControl, Class 等等)中不能定義爲 public.
用 Private

多谢楼上的朋友
可是改成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，不知道什么意思，不知道该怎么改正。
请各位高人指教！
谢谢！

自定义类型好象不能做为函数参数.

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

在標准模組中宣告此 type. 使其成爲公共的.