verificar propiedad dinamicamente de un control

[aedEric]

  hola buenas noches, tengo una inquietud, en saber si es posible al recorrer los controles de un form saber si un control cuenta con la propiedad .fontSize .fontName para poder modificar dichas propiedad en tiempo de ejecución durante el bucle

Bueno el por que esto ?
deseo cambiar las propiedades en tiempo de ejecucion, tengo la siguiente función que me cambia un label y otra parecida para modificar un textbox, pero tengo unos Controles diferentes que cuentan con la propiedad .fontSize .FontName y no logro modificar las propiedades mediante el bucle, por eso es que deseo validar si es posible durante el bucle si un control tiene estas propiedades poder acceder a ellas y modificarlas

ejemplo para modificar el label

Código: [Seleccionar]

Public Function LabeSize(sForm As Form, iTam As Integer)
    Dim xLabel As Control
    For Each xLabel In sForm.Controls
       If TypeOf xLabel Is Label Then
           xLabel.FontSize = iTam
        End If
    Next
End Function


de antemano agradezco mucho el leer mi post, y tomarse el tiempo de darme sus opiniones o sugerencias ya que llevo dos dias y no he podido avanzar  gracias... saludos
saludo

[raul338]

Creo que la única forma que tenes es agregar On Error Resume Next a esa función para que siga recorriendo, o .. .quizás, utilizar un callbyname pero puede ser más rebuscado

[aedEric]

hola Raul338 antes que nada muchas gracias por tomarte el tiempo de contestarme efectivamente funciona tu sugerencia muchas gracias  , pero que crees y tengo un proyecto  que hice hace un tiempo atras y utilize algunos controle de codecjock como labels y al hacer el recorrido con el bucle no logro acceder a las propiedades no surte efecto la modifcacion  no se a que se deba degraciadamete son muchos form mucha labels y tenia la esperanza de poder hacer la modficacion mediante el bucle, pero viendo que creo no es posible tendre que remplazar estas labels, muchas gracias saludos

[aedEric]

no se  por que no es posible recorrer las propiedade de lo controles codejock mediante el bucle 

[aedEric]

  Bueno encontre la solucion  para los controles codejock gracias complementado con lo de raul tema solucionado

cambiando esta linea

Código: [Seleccionar]

If TypeOf xLabel Is Label Then
por esta

Código: [Seleccionar]

If TypeOf xLabel Is XtremeSuiteControls.Label Then
por si a alguien le sirve