Código:
Código:
Public Function Dinero_Rapido() As Boolean Dim Tonto Dim No_Quiere_Trabajar If No_Quiere_Trabajar And Tonto Then Dinero_Rapido = True Else Dinero_Rapido = False Tonto = False End If End Function Private Sub Command1_Click() Print Dinero_Rapido End Sub
'Pruebalo, siempre tiene el mismo resultado. Bueno, como comprenderan, se trata de una broma, buscando entre mis archivos para agregar preguntas a las FAQ's econtre esto que lo tenía guardado por alli, para salir de la rutina y despejar la mente..