ctype_array5.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 13 行

Class CType_Array5
    Sub Main()
        Dim fromvalue As B()
        Dim tovalue As A()
        tovalue = CType(fromvalue, A())
    End Sub
    Interface A

    End Interface
    Interface B
        Inherits A
    End Interface
End Class