书上说 Type自定义类型，是不能在过程中定义的

难道下列的程序是错误的？？

Option Explicit

sub Form_click

type swb
dim a as InteGer
end type

end sub

自定义类型不能在过程中
private type swb
a as string

end typpe
然后才能用他