关于VB.Net中的泛型

Question

Public Class Class2
    Public Sub ShowMsg(Of T)(ByVal cls As T)
        cls.ShowMsg()   '错误
    End Sub
End Class

Public Class Class3
    Public Sub ShowMsg()
        MsgBox("In class 3")
    End Sub
End Class

Public Class Class4
    Public Sub ShowMsg()
        MsgBox("In class 4")
    End Sub
End Class

以上代码，我想用泛型访问Class3和Class4的成员ShowMsg，但是报错。

我如何实现这个目标？

谢谢