como crear funcion vb parecia en foxpro

[fre_saga]

hola hay forma de declarar este codigo vb en foxpro
o alguien tiene algo parecido

este lo utilizo para trabajar los controles hablilitar, desabilitar, limpiar

 Private Sub controles(Index As Integer)
        Select Case Index
            'esta parte es para texbox
            Case 0

                For Each c As Control In ExpandablePanel1.Controls
                    If TypeOf c Is TextBox Then
                        c.Enabled = False
                    End If
                Next

            Case 1

                For Each c As Control In ExpandablePanel1.Controls
                    If TypeOf c Is TextBox Then
                        c.Enabled = True
                    End If
                Next

            Case 2

                For Each c As Control In ExpandablePanel1.Controls
                    If TypeOf c Is TextBox Then
                        c.Text = ""
                    End If
                Next
                'esta parte es para botones
            Case 3
                btguardar.Enabled = True
            Case 4
                btguardar.Enabled = False
            Case 5
                btmodificar.Enabled = True
                bteliminar.Enabled = True
            Case 6
                btmodificar.Enabled = False
                bteliminar.Enabled = False
            Case 7
                btnuevo.Enabled = True
            Case 8
                btnuevo.Enabled = False


        End Select
    End Sub

    Public Enum Index
        Deshabilitar_TextBox = 0
        Habilitar_TextBox = 1
        Limpiar = 2
        Habilitar_guardar = 3
        Deshabilitar_guardar = 4
        Habilitar_botones = 5
        Deshabilitar_botones = 6
        Habilitar_nuevo = 7
        Deshabilitar_nuevo = 8
    End Enum

asi lo llamo
 Private Sub btnuevo_Click(sender As System.Object, e As System.EventArgs) Handles btnuevo.Click
        controles(Index.Habilitar_TextBox)
        controles(Index.Habilitar_guardar)
        controles(Index.Deshabilitar_nuevo)
    End Sub

[linux2010]

No se por hay me encontre este haber si te sirve algo :

IF THISFORM.crear=.F. AND THISFORM.modificar=.F.
   THISFORM.disponible   =.T.
   THISFORM.crear=.T.
   THISFORM.modificar=.T.
   THISFORM.camposdisponibles()
   GO BOTT
   STORE id_calidad TO nnumero
   INSERT INTO calidades_oro(id_calidad, usuario);
      VALUES (nnumero+1, cusername)
   THISFORM.txtidcalidad.REFRESH
   THISFORM.txtcalidad.SETFOCUS()
ELSE
   nanswer = MESSAGEBOX("Estan Correctos los datos... y desea actualizar", 4+32+0,"Actualizacion de Registro")
   DO CASE
      CASE nanswer = 6
         IF THISFORM.crear=.F. AND THISFORM.modificar=.T.
            REPLACE usuario    WITH cusername
            REPLACE registromov WITH DATETIME()
            nprioridad=10
            cmensaje="Se modifico una calidad"
            THISFORM.vitacora()
         ENDIF

         IF THISFORM.crear=.T. AND THISFORM.modificar=.T.
            nprioridad=10
            cmensaje="Se Creo una nueva calidad "
            THISFORM.vitacora()
         ENDIF
         SELECT calidades
         GO TOP
         THISFORM.guardar()
         THISFORM.disponible   =.F.
         THISFORM.crear      =.F.
         THISFORM.modificar   =.F.
         THISFORM.camposdisponibles()
   ENDCASE
ENDIF
THISFORM.REFRESH

[stoke]

Use Fox hace mas de 10 años, cuando tenia que remediar estas situaciones, lo hacia con variables públicas y agregando métodos y/o propiedades al formulario,  como el ejemplo de linux2010, cuando estas en modo de diseño de formulario  hay un menu para administrar  metodos y propiedades personalizadas, Fox es bastante limitado y no se puede crear codigo robusto, suerte!

[fre_saga]

voy a probar el codigo  y comento despues