How To Use the CallByName Function to Run a Procedure

MORE INFORMATION

Steps to Create Sample Project

1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.
2. Add a Class Module (Class1) to the project.
3. Add the following code to the Class Module:

         Option Explicit
         Private MyPropValue As Integer
   
         Public Function Multiply(x As Integer, y As Integer) As Integer
            Multiply = x * y
         End Function
   
         Public Property Get MyProperty() As Variant
            MyProperty = MyPropValue
         End Property
   
         Public Property Let MyProperty(ByVal vNewValue As Variant)
            MyPropValue = vNewValue
         End Property
   
   						

4. Add the following code to the Form Module (Form1):

         Option Explicit
         Private Sub Form_Click()
            Dim myclass As New Class1
            Dim sum As Integer
            Dim prop As Integer
   
            ' Example of calling a method with CallByName
            ' equivalent to -- sum = myclass.Multiply(12, 12)
            sum = CallByName(myclass, "Multiply", VbMethod, 12, 12)
            MsgBox sum
   
            ' Example of a property let with CallByName
            ' equivalent to -- myclass.MyProperty = 5
            CallByName myclass, "MyProperty", VbLet, 5
   
            ' Example of a property get with CallByName
            ' equivalent to -- prop = myclass.MyProperty
            prop = CallByName(myclass, "MyProperty", VbGet)
            MsgBox prop
         End Sub
   
   						

5. Run the Project and click on Form1. A message box displaying the number 144 and a message box displaying the number 5 are shown in succession.