类型转换问题

[idot]

我在工作中遇到这样的问题：已知子类接口 IChildren 和基类接口 IParent，并且 IChilren 扩展了IParent，有两个变量分别是 Dim child As IChildren，Dim parent As IParent，
'''''''''''''''''''''''此处实例化IParent 变量 parent'''''''''''''''''''''
在运行时 下面语句出错：
child = parent
现在向各位请教，如何解决。

[farrio]

下面的代码编译通过。
Public Interface IParent

End Interface

Public Interface IChildren
Inherits IParent

End Interface

Public Class Parent
Implements IParent
End Class

Public Class Children
Implements IChildren
End Class

Public Class Claas1

Dim p As New Parent
Dim c As Children

Dim ip As IParent
Dim ic As IChildren

Public Sub abc()
ip = p
ic = ip
End Sub

End Class

但是如果
c = p就不通过。

[idot]

先谢谢farrio(独孤求胜) ，但是你的程序和我的样板程序一样，编译通过了，但是运行时不能通过。