Public Class ClassA
        Public x As Integer
    End Class
 
    Public Class ClassB
        Inherits ClassA
        Public y As Integer
    End Class
 
    Public Sub test(ByVal c As ClassA)
        Dim cb As ClassB = TryCast(c, ClassB)
        If cb IsNot Nothing Then
            Debug.WriteLine("y=" & cb.y)
        Else
            Debug.WriteLine("Sorry, not a ClassB")
        End If
    End Sub
 
    Private Sub TryIt()
 
        Dim cb As New ClassB
        cb.y = 33
        test(cb)
        Dim ca As New ClassA
        test(ca)
 
        If TypeOf ca Is ClassA Then
            Debug.WriteLine("ca is a ClassA")
        End If
 
        If Not TypeOf ca Is ClassB Then
            Debug.WriteLine("ca is not a ClassB")
        End If
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist