Coleccion de clases dentro de una clase

[Peterpay]

Public Class Futbol : Implements IDeporte



Public Sub MySub() Implements IDeporte.MySub

End Sub
End Class

Public Class BaseBall : Implements IDeporte


Public Sub MySub() Implements IDeporte.MySub

End Sub
End Class

Public Interface IDeporte
'Define todos tus metodos compartidos por los deportes
Sub MySub()

End Interface

Public Class Deportes : Inherits List(Of IDeporte)


End Class

Public Class otraclase

Dim DeportesQuePractico As Deportes
Public Sub mine()
DeportesQuePractico.Add(New Futbol())
DeportesQuePractico.Add(New BaseBall())
End Sub

End Class

algun sample pequeño pero tu debes implementar acorde a tus necesidades , herencia e interfaces