Visual Basic

<br />
'1. Create 6 classes (I've removed all internal code since it is useless for the test)<br />
<br />
Public Class LockableDataObject<br />
<br />
End Class<br />
<br />
<br />
Public Class Business<br />
<br />
    Inherits LockableDataObject<br />
<br />
End Class<br />
<br />
<br />
Public Class LockableDataManager(Of CustomType As LockableDataObject)<br />
<br />
End Class<br />
<br />
<br />
Public Class BusinessManager<br />
<br />
    Inherits LockableDataManager(Of Business)<br />
<br />
End Class<br />
<br />
 <br />
<br />
Module main <br />
<br />
    Public Sub main() <br />
<br />
        'This line works<br />
<br />
        Dim MyManager As LockableDataManager(Of Business) = New BusinessManager<br />
<br />
 <br />
<br />
        'This line doesn't (Is this a bug? or is this wanted?)<br />
<br />
        Dim MyManager2 As LockableDataManager(Of LockableDataObject) = New BusinessManager <br />
<br />
    End Sub<br />
<br />
End Module