[sooriaty03]

السلام عليكم ورحمة الله وبركاته

هناك حل وهو أن تمرر نفس الكلاس الذي قمت بتعريفه إلى الكلاسات الفرعية
وذلك بالطريقة التالية:

كود :

Public Class Form1

    Class AnyThing
        Public Thing_Type As String
        Public P As New Person(Me)
        Public C As New Car(Me)
        
        Class Person
            Private AnyThing_ As AnyThing
            Sub New(ByVal [AnyThing] As AnyThing)
                AnyThing_ = [AnyThing]
            End Sub
            Public Sub Show_Thing_Type()
                If AnyThing_.Thing_Type = "Person" Then MsgBox("Person")
                If AnyThing_.Thing_Type = "Car" Then MsgBox("Car")
            End Sub
        End Class

        Class Car
            Private AnyThing_ As AnyThing
            Sub New(ByVal [AnyThing] As AnyThing)
                AnyThing_ = [AnyThing]
            End Sub
            Public Sub Show_Thing_Type()
                If AnyThing_.Thing_Type = "Person" Then MsgBox("Person")
                If AnyThing_.Thing_Type = "Car" Then MsgBox("Car")
            End Sub
        End Class
    End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim T As New AnyThing

        T.Thing_Type = "Car"

        T.P.Show_Thing_Type()
    End Sub
End Class

بالتوفيق