VB .NET 4.5 Konvertiranje objekata

Pitanje za znalce.

Imam klasu system.net.sockets.tcpclient

i moju klasu mytcpclient

koja nasljeđuje system.net.sockets.tcpclient i dodaje event newmsg

problem koji imam je što se javlja greška na liniji:

Dim Client As myTcpClient = srv.AcceptTcpClient

jer srv.accepttcpclient vraća onaj standardni tcpclient, ne mytcpclient.

pokušao sam:

Dim tmpclient As TcpClient = srv.AcceptTcpClient

dim mytcp as mytcpclient = CType(tmpclient, myTcpClient)

i

Dim tmpclient As TcpClient = srv.AcceptTcpClient

dim mytcp as mytcpclient = DirectCast(tmpclient, myTcpClient)

i u sva tri slučaja se javlja ista greška.

Je li postoji način kako mogu konvertirati objekt iz jednog tipa u drugi (originalni u prošireni)?

Hvala

MSDN tvrdi da je moguće castati base klasu u derived klasu koja nasljeđuje tu base klasu, no nigdje se ne navodi primjer kako je to moguće napraviti.

prema tome što piše, ovo:

class mytcpclient 

inherits tcpclient

public event newmsg(msg as string)

'neda mi se pretipkavati dalje ali imam thread koji čeka poruke i podiže event po potrebi

end class

dim a as tcpclient

dim b as mytcpclient

b = trycast(a,mytcpclient)

ovo bi trebalo tako raditi - i to samo u ovom smjeru (prema tome što MSDN kaže)

Ali ja nemam Ferarri i Ferarri Testarossa, ja imam Ferarri i Ferarri koji mi zna reći 'vidi me, krećem se'

Nemam razlike u propertyjima, samo imam novi event i metodu

Držim se onog napisanog na MSDN-u gdje kaže da mogu Ferarri castati u Ferarri testarosa, s tim da bi novi objekt trebao imati nedefinirani property (defaultni)

To što ti pokušavaš je nesigurna pretvorba koja se primjerice u C++u može provjeriti dynamic_cast operatorom, a dopušta se samo ako je bazna klasa polimorfna. Možda baš iz tog razloga je i nedopustiva za izvesti u VB-u.