VB中如何判断某个类是否实现了某个接口

在这里记录下，实在有些对不起JavaEye了，在Java里轻松完成的事情，在VB中我找了半天也不知道是何语法，因为接手负责一个VB的遗留项目想到用动态接口实现，结果在这上卡了壳。知道了就简单了，直接给出语法：TypeOf [ObjectVariableName] Is [InterfaceName]，例如: 

 

Class Employee

    Implements Person

    Implements Workable

    Implements ...

 

Dim objEmployee as Employee

 

If TypeOf objEmployee Is Person Then

...

Else

        ...

End If