1 2Class CType_Interface1 3 Sub Main() 4 Dim fromvalue As i2 5 Dim tovalue As I1 6 tovalue = CType(fromvalue, I1) 7 End Sub 8 9 Interface I1 10 11 End Interface 12 13 Interface I2 14 Inherits i1 15 End Interface 16End Class