You create a routine that uses the Typename() function to find out thetype of an object, and based on that type, performs certain actions. However,when used in a Form object, the value returned by Typename() is not thegeneric object class “Form.” It is, instead, the specific objectclass “Form1.”Try running this sample:

 Private Sub Form_Load()	Dim frm as Form	set frm = Me	Debug.Print TypeName(frm), frm.Name 	'<< prints: Form1 Form1End Sub

You expect TypeName(frm) to resolve to Form instead of Form1 but itdoesn't. That is because the type of the object, in this case, is the formclass itself, Form1. That you assigned it to a Form object does nothingexcept to prevent you from calling any of the Form1 objects methods andproperties directly in code. Similarly, a control never gives a type nameof "Control." Instead, the type name is always something like"CommandButton" or "PictureBox."Interestingly, while the TypeName function returns the most specificname, the If-TypeOf syntax will match either the generic class type orthe specific object class. In other words, both of these If statementswould return True:

 Set frm = MeIf TypeOf frm Is Form1 Then Debug.Print "Form1"If TypeOf frm Is Form Then Debug.Print "Form" '<< both stmts are true