質問があります。
実装をともなうクラスの継承をうまく行う方法をご存じの方はご教示ください。
具体的にはFooというインターフェイスと実装を備えたクラスがあり、

[Foo]
Public Sub Show()
MsgBox "test"
End Sub

Public Sub VirtualFunc()
End Sub

このShowの実装を継承先で使用するためのBarというクラスがあったとすると、

[Bar]
Implements Foo
Private super As New Foo

#If 1 Then
Private Sub Foo_Show()
Show
End Sub
#End If

Private Sub Foo_VirtualFunc()
' Bar独自の記述
End Sub

Fooから派生したクラスでは#If 1 Thenで括られた中身をコピペすることになります。
このままではメンテナンス性に欠けたクラス設計になってしまいますが、この問題を
解消する方法はあるのでしょうか。アドバイスいただけると助かります。