Scusatemi ma peché questa operazione non è consentita?

codice:
class A
...
end Class

class B
  inherits A
...
end class

poi in un sub faccio

codice:
dim obj_a as new A
dib obj_b as new B

obj_b = obj_a
se B contiene ed espande A, perché questo casting nn è valido? Io sapevo (xo fino ad ora nn avevo provato) ke tale operazione è consentita...