構造体のコピー

VB6ですが、構造体のコピーは正しくできるのでしょうか

type a
test1(0 to 5) as byte
test2 as integer
test3 as string
end type

dim b1 as a
dim c1 as a

b1.test = 2
c1 = b1

私はここで、c1.test2が０だった

No.2 ベストアンサー 回答者： chibita_papa 回答日時： 2006/04/28 18:00

これで試してみて下さい

Sub test()

dim b1 as a
dim c1 as a

b1.test2 = 2
b1.test3 = "AAA"

c1 = b1

Debug.Print c1.test2
Debug.Print c1.test3

End Sub

No.1 回答者： BLUEPIXY 回答日時： 2006/04/28 15:49

b1.test = 2

でエラーになっているのでは