SoloCodigo

Que extraña forma de solicitar ayuda

bien supongo que esto te es suficiente...



Listo ahi esta el ejemplo con codigo    





Saludos

yo lo haría de la siguiente manera, crearía una matriz de controles de option button, y en base a eso haría algo así:

<!--xc1--></div><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>XCODE </td></tr><tr><td id='XCODE'><!--exc1-->Dim flag As Byte
Private Sub Command1_Click()
For i = 0 To Option1.Count - 1
    If Option1(i) = True Then flag = i: Exit For
Next
Select Case flag
    Case 0:
        MsgBox "soy " & flag
    Case 1:
        MsgBox "soy " & flag
    Case 2:
        MsgBox "soy " & flag
End Select
End Sub<!--xc2--></td></tr></table><div class='postcolor'><!--exc2-->

pero si es exactamente lo que puso F_Tanori

CODE
Option Explicit
Private Sub Option1_Click(Index As Integer)
 Select Case Index
    Case 0
       'Proceso
    Case 1
       'Proceso
    Case 2
       'Proceso
    Case 3
       'Proceso
 End Select
End Sub

que es el uso basico del select Case, lo que ibas a hacer en cada caso ya era de voz.

BYTE.

esto es lo que puso abelsql3000

Quisiera compartir un interezante codigo que me andaron y es lo que andaba buscando:

SELECT CASE True
CASE opt(0).Value
call mirutina(params...)
CASE opt(1).Value
call mirutina(params...)
CASE opt(2).Value
call mirutina(params...)
CASE opt(3).Value
call mirutina(params...)
CASE opt(4).Value
call mirutina(params...)
CASE Else
call mirutina(params...)
END CASE

Este de aqui es muy eficiente, (Y)

y esto es lo que puso Francisco

CODE
Option Explicit
Private Sub Option1_Click(Index As Integer)
Select Case Index
    Case 0
      'Proceso
    Case 1
      'Proceso
    Case 2
      'Proceso
    Case 3
      'Proceso
End Select
End Sub

la unica diferencia es que abelsql3000 evalua un valor booleano y Francisco evalua un valor entero

El select se finaliza con END SELECT
no END CASE


No es lo mismo es parecido


Saludos

Gracias por todos sus comentarios me agrada su interes en las inquietudes que tengo, les cuento que habia colgado los guantes de la programacion en vb, ya que me habia dedicado a dictar clases de matematicas, es ahora que se me apresentado mi nuevo empleo como profesor de informatica,  lo cual me agrado ya que he inertidos 3 años de mi vida en el mundo de la informatica, por lo tanto que era razonable que me este ejerciendo una labor correspondiente a mi capacitacion. No pensabe ver mas la programacion, pero ahora que lo estoy enseñando me entretiene mucho, ya que es todo una experiencia, realmente es algo complicado enseñar programacion si un previo conocimiento de lenguaje estructura , concimientos en seudocodigo y algoritmos. Esta pequeño grupo de informatica ha colocado a vb y vfp dentro de su curricula para una carrera de solo 6 meses, de los cuales 2 son para estos cursos. Me ha costado verdad lograr resultados satisfactorios, hay interesados en saber la programacion, pero con el corto tiempo no se logra el objetivo de ser un programador eso es indiscutible.
Gracias amigos por q es con su ayuda que puedo yo capacitar personas de diferentes edades.
Entenderan que estoy algo oxidado en programacion, estoy desempolvado, pero a pesar de ello me doy en todo para que mis estudiantes aprendan como les digo a los alumnos. Si es posible escribiria en la pared si no hubiera pizarra.

Este es el codigo que deseaba
Private Sub Command1_clic()
Select Case True
Case Option1.Value
Print "1"
Case Option2.Value
Print "2"
Case Option3.Value
Print "3"
Case Else
Print "4"
End Select
End Sub
Ya que seaba evaluar el boton desde un boton de comando y no interactuando directamente con ellos, mucho menso usando arreglos de control, no quiero complicarle la existencia a mis alumnos, ya que no tienen la experiencia que nosotros tenemos.
Gracias por todos mi nombre es ABEL de lima, PERU
FELIZ NAVIDAD
El de Jesucristo es el mejor, a el sea la gloria el imperio, la majestad.
El de Jesucristo es el mejor