[Abu Ehab]

Okey :

PHP كود :

Public Class Form1

End Class

Class AnyThing

    Enum Thing_Type
        Person
        Car

    End Enum

    Public P As New Person
    Public C As New Car


    Class Person
        Public Sub Show_Thing_Type()
            If Thing_Type.Person Then MsgBox("Person")
            If Thing_Type.Car Then MsgBox("Car")
        End Sub
    End Class

    Class Car
        Public Sub Show_Thing_Type()
            If Thing_Type.Person Then MsgBox("Person")
            If Thing_Type.Car Then MsgBox("Car")
        End Sub
    End Class

End Class