如何为自定义的类型赋值数组？

如何为自定义的类型赋值数组？
例如:

Public Type TestType
    Magic(4)        As Byte            
    Version(2)      As Byte            
    Compression     As Byte             
    DiskSize(4)     As Byte             
    ImageSize(4)    As Byte
    SectionNum      As Byte  
    StringTab(4)    As Byte  
    DataOffSet(4)   As Byte 
End Type

Dim Bin(255) AS Byte
Dim TT AS TestType

Bin(0)= &HAB
.......
Bin(255)=&H21

如何把Bin的前24个数组赋值到TT类型里去?

补充：VB ,  非技术类