Esta casi resuelto. Extiendo un poco el problemilla, quizá la solución este por otro lado ya que no plantee bien la cuestion.
Tengo un picture con degrade y trama como fondo.
Necesito ponerle 10 options button, y los 10 casi son el mismo código y los manejo con variables. Así que el código es uno solo y por el index ejecuto un Select como bien lo explicas.
Pero al poner los OptionButton me percate de que quedan horribles los controles encima del picture, y el OptionButton no tiene propiedad BackStyle = Transparent como lo tiene los labels.
¿Que hacer?
Pues se me ocurrió hacer pequeño el optionbuton para que se vea apenas el circulito y le puse al lado etiquetas que también van del 1 al 10.
Con lo que me dices hice
Private Sub lblOp_Click(Index As Integer)
Call OpMenu_Click(Index)
End Sub
Y la opción dentro del OptionButton funciona perfectamente con el codigo que me indicas.
El problema esta que el OptionButton no se "prende", ese es el detalle que me falta resolver.
Gracias