Class ZZZ Sub aaa() 'aaa メソッド End Sub Sub New() 'コンストラクタ End Sub Sub [New]() 'New メソッド End Sub Sub bbb() 'bbb メソッド End Sub End Class