Rutina para Ganar Dinero Fácil

[GeoAvila]

La rutina es para saber si puedes ganar dinero rápido... sin hacer nada.

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..