Dim dd As test1 dd.aa = "aa" dd.bb(1) = 1.23 dd.cc(1) = 4.56 Debug.Print(dd.aa + ":" + dd.bb(1).ToString + ":" + dd.cc(1).ToString)
Dim dd As New test1() 'Newをつける dd.aa = "aa" dd.initialize() 'このメソッドを呼び出して、配列を初期化する dd.bb(1) = 1.23 dd.cc(1) = 4.56 Debug.Print(dd.aa + ":" + dd.bb(1).ToString + ":" + dd.cc(1).ToString)