vb ClassのCase文

.NETFramework,Version=v4.0
Visual studio2010 での動作を確認しました

コントロールを評価する場合はTypeOf なしで obj Is buttonとかでやるみたいです（調べただけで未検証です）
Class評価のCase文の場合は以下のように書くみたいです

        Select Case True
            Case TypeOf obj Is Class1
            Case TypeOf obj Is Class2

        End Select