[VB] [reflection] Using typelib information to enumerate object attributes and callbyname reflection to call Functions

Use typelib information to enumerate object attributes and call functions using callbyname reflection

 'Reference typelib Information </P> <p> sub listcontrols () <br/> cells (1, 1) = "control" <br/> cells (1, 2) = "properties, methods, events" <br/> cells (1, 3) = "value" <br/> [A1: C1]. interior. colorindex = 3 <br/> on error resume next <br/> dim CTL as object, N as long <br/> n = 1 <br/> for each CTL in userform1.controls <br/> dim iinf as interfaceinfo <br/> set iinf = interfaceinfofromobject (CTL) <br/> if not (iinf is nothing) Then <br/> dim mem as memberinfo <br/> for each MEM in iinf. members <br/> If mem. invokekind then <br/> N = n + 1 <br/> cells (n, 1) = CTL. name <br/> cells (n, 2) = mem. name <br/> cells (n, 3) = callbyname (CTL, mem. name, vbget) <br/> end if <br/> next <br/> [A1: c65536]. columns. autofit <br/> end sub <br/>