Вложение структур пользовательского типа

[Space]

Подскажите, как вложить описание одной структуры в другую без определения дополнительного имени поля? Например:

Private Type A
b1 as Byte
End Type

Private Type B
name as A
End Type

Dim x as B
Мне надо, чтобы было x.b1 (а не x.name.b1) и при этом не просто скопировать через буфер обмена поля стр-ры A в стр-ру B, а описать, чтобы при изменении полей в стр-ре A изменились поля стр-ры B. Как такое сделать?
И ещё - у меня описания структур и определения массивов по ним лежат в разных местах (модуль, форма) и выскакивает ошибка - допускается только одном месте?

[GSerg]

Зачем это нужно?