このエラーが起こったときは、以下のいずれかの条件が考えられます。
以下に例を示します。
Class BaseClassOne
Sub New (X As Integer)
End Sub
End Class
Class BaseClassTwo
Sub PrintIt
' ...
End Sub
End Class
Class DerivedClass As BaseClassOne
Sub New(Y As Integer), BaseClassTwo(x%)
' Illegal because BaseClassTwo is not the base
' class from which DerivedClass is derived.
' The appropriate base class is BaseClassOne.
End Sub
Sub PrintIt
' ...
End Sub
Sub CallPrintIt
Call BaseClassTwo..PrintIt
' Illegal because BaseClassTwo is not the base
' class from which DerivedClass is derived.
' The appropriate base class is BaseClassOne.
End Sub
End Class
ベースクラスの参照を修正してください。