Access - Averiguar el tipo de objeto

Hola

Pues asi como lo planteas esta casi que bien.

La variable Objeto tiene que ser de tipo Control

'***************************** Codigo procedimiento ******************************
Public Sub CompModificarMouse(ByVal MiControl As Control)

If TypeOf MiControl Is TextBox Then
'Cambiar aqui icono caja de texto
End If

If TypeOf MiControl Is CheckBox Then
'Cambiar aqui icono casilla verificacion
End If

If TypeOf MiControl Is CommandButton Then
'Cambiar aqui icono boton
End If

If TypeOf MiControl Is ListBox Then
'Cambiar aqui icono boton
End If

If TypeOf MiControl Is ComboBox Then
'Cambiar aqui icono boton
End If

If TypeOf MiControl Is OptionButton Then
'Cambiar aqui icono boton
End If

End Sub
'*************************** Fin Codigo procedimiento ****************************


Ahora para que se llame el procedimiento deberias programar los eventos MouseMove de cada control que quieras cambiar el icono.

Por ejemplo para un boton

Private Sub Comando0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
CompModificarMouse Comando0 'Paso como parametro el nombre del control
End Sub

Tambies debes programar el evento MouseMove del formulario/Detallle para que restaure el icono ya que si pasas el mouse por encima de un boton por ejemplo y luego lo pasas por enciama del formulario seguiria estando el icono del boton y no cambiaria hasta que pases por encima de otro control.

Y si colocas el procedimiento en un modulo puedes llamarlo desde cualquier formulario.

Saludos
http://www.theemulator.tk