W004 クラスコンストラクタに対する引数の数が不正です: <クラス名>

以下のステートメントのいずれかで、クラスコンストラクタに対して誤った数の引数が指定されています。

• 形式の宣言

  Dim X As New ClassName

  以下に例を示します。

  Class MyClass
     Sub New(A As Integer, B As String)
        ' ...
     End Sub
  End Class
  Dim ObjRef As New MyClass(4, "Alex", "Jones")  ' Illegal because 
                                                 ' MyClass's Sub New takes
                                                 ' only two arguments
  Dim ObjRef As New MyClass(4, "Alex Jones")     ' Legal

• 次の形式の Set ステートメント

  Set X = New ClassName

• 派生クラスのコンストラクタが要求する引数がベースクラスのコンストラクタが要求する引数と異なっているときの、派生クラスの宣言。この場合、ベースクラスのコンストラクタ引数は、Sub New 宣言の BaseClassName 節の後ろで指定されなければなりません。例を次に示します。

  Class BaseClass
     Sub New(X As Integer)
        ' ...
     End Sub
  End Class
  Class DerivedClass As BaseClass
    Sub New(Y As String, X As Integer), BaseClass(X%, Y)  ' Illegal
    Sub New(Y As String, X As Integer), BaseClass(X)	     ' Legal
       ' ...
    End Sub
  End Class

コンストラクタに正しい数の引数を提供してください。