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