vb 中如何给自定义的类型赋值？

请高手解答.fangyu = 30
我这样总是通不过？
Type shuxing
shengming As Integer
gongji As Integer
fangyu As Integer
End Type
Dim wuming As shuxing
wumingvb 中如何给自定义的类型赋值.shengming = 100
wuming，谢谢.gongji = 50
wuming

我是想让定义的wuming在整个过程和所有的窗口都能用，加Private不就只有一个窗口能用了吗？请高手解答，谢谢

Private Type shuxing
shengming As Integer
gongji As Integer
fangyu As Integer
End Type
Private Sub Command1_Click()

Dim wuming As shuxing
wuming.shengming = 100
wuming.gongji = 50
wuming.fangyu = 30

End Sub

Type shuxing shengming As Integer gongji As Integer fangyu As Integer End Type 得到模块中定义 语法上没有什么问题！！

Type shuxing shengming As Integer gongji As Integer fangyu As Integer End Type shuxing .shengming = 100 shuxing .gongji = 50 shuxing .fangyu = 30

不行的，还是要逐个输出的。 即使改成类，也是逐个赋值、输出的，但是类可以定义一个统一的方法，比如： stud.setvalue varclassno,varname,varage 来简化调用，而自定义类型type只是一个结构，不能添加方法。

那就 Type shuxing shengming As Integer gongji As Integer fangyu As Integer End Type 放在模块中