VB 结构体

VB6.0中定义结构体 

窗体中可以定义，只能定义成 Private ，在本窗体中使用 

Private Type MyType 
a As Integer 
b As Integer 
End Type 

模块中 
可以定义成 Private ，在本模块中使用 
Private Type MyType 
a As Integer 
b As Integer 
End Type 

可以定义成 Public ，在任何地方都可以使用 
Public Type MyType 
a As Integer 
b As Integer 
End Type 

结构体定义以后就成为一种数据类型，和 Long等数据类型使用方法类似 

Private Sub Form_Load()
Dim x As MyType 
Dim y As MyType 

x.a = 1 
x.b = 2 

y = x 'VB 允许 结构体 像这样整体赋值
ReDim MyArray(1 To 10) As MyType

End Sub