REM LineNo: 27
REM ExpectedError: BC30057
REM ErrorMessage: Too many arguments to 'Public Shadows Function F() As Object'.

Class B
    Function F()
    End Function

    Function F(ByVal i As Integer)
    End Function


    Function F(ByVal i As String)
    End Function
End Class

Class D
    Inherits B
    ' all other overloaded methods should become unavailable 
    Shadows Function F()
    End Function
End Class

Module ShadowA_C1
    Sub Main()
        Dim x As D = New D()
        x.F("abc")
    End Sub

End Module