ClassのProperty設定 Option Explicit 'クラスSampleの定義 Class Sample 'Caption プロパティ Public Caption End Class 'オブジェクト変数 Dim objSample1 Set objSample1 = New Sample objSample1.Caption = "hoge" MsgBox objSample1.Caption '//ここで…