Yes....
If TypeOf Oran Is Orange Then ' oran is an orange class
Additionally. You can use TypeName(object) to check its name as a string.
Edited: And if you really want to prevent any potential of error
FYI: If Oran hasn't been set to New Orange, then TypeName(Oran)="Nothing" & (Oran Is Nothing)=TrueCode:If Not Oran Is Nothing ' will error if Oran not set to new Orange If TypeOf Oran Is Orange Then ' retun true? End If




Reply With Quote