Public Class BADC
        Shared Function Change(ByRef BADC As BarAndDockingController, ByVal _
          Prop As String, ByVal Value As String, Optional ByVal Path As String _
          = "") As Boolean
            Select Case Prop
                Case "AllowLinkLighting1"
                    BADC.PropertiesBar.AllowLinkLighting = Value
                Case Else
                    Dim Ref_String As Object = "BADC" & Path
                    CallByName(Ref_String, "AllowLinkLighting", CallType.Set, _
                      Value)
 
            End Select
        End Function
    End Class
 
Definition CallByName:
Public Function CallByName( _
   ByVal Object As System.Object, _
   ByVal ProcName As String, _
   ByVal UseCallType As CallType, _
   ByVal ParamArrayArgs() As Object _
) As Object