[RESOLVED, can't be done] Select Case with reference types

[agent]

I was under the impression that it would be possible to do a select case on reference types themselves (not just their properties.) The comparator for reference types is 'is', not '=', but Case Is GetType(Splitter) automatically inserts the '='. It doesn't like Case Is Is GetType(Splitter) either.

Any ideas on how to do this, preferably with select case, as I will be adding more than just two types later on.

For Each current As Control In form.Controls
    Select Case current.GetType
        Case Is = GetType(Splitter)
            'some code
        Case Is = GetType(ColumnHeader)
            'more code
        Case Else
            'nothing
    End Select
Next