Dim yamada As Person 'Person クラスの変数「山田」を定義 yamada = New Person() '「山田」変数に Person クラスのインスタンスをセット ' '上記 2 行を、下記のように 1 行で書くこともできる 'Dim yamada As Person = New Person() 'Dim yamada As New Person() 'Dim yamada = New Person()