' ' '

' ' ' Feliz_ano_nuevo_2008.vb

' ' '
Private Sub nuevo_ano_2008 ()



' Primero Borramos todo rastro del 2007 que ya no nos funcione

Kill ("ano_2007.doc")

Kill ("penas_y_penumbras.xls")

Kill ("dolores_de_cabeza.pps")

Kill ("$%&&&%$#.exe")




' Contruimos un nuevo año un poco mas agradable

Dim Orgasmos = New OrgasmoGrande ("Placer", "Fortuna", "Mujeres", 365, True)



Dim Dicha = New Dicha_Felicidad ("Dinero", _

enumCosas.Xbox360, _

enumCosas.PlayStation3, _

enumCosas.Carro, _

enumCosas.PcNueva)



Dim Lecciones = New MendigasLecciones ("Frustraciones", _

enumChingaderas.Errores, _

enumChingaderas.Metidas_Patas, _

"#$&%$&/&/#(")



' Generamos el nuevo año

Dim ano_2008 = New Anos (Orgasmos, Dicha)



' Le agregamos las lecciones

ano_2008.Aprendizaje

= Lecciones



' Le agregamos desde una variable global las lecciones del años 2007

ano_2008.LeccionesPasadas = Me.Lecciones2007



' Por ultimo abrimos y vivimos el nuevo año

ano_2008.Show ()





' No te olvides de liberar Recursos

Orgasmos.Disponse ()<br style="color: rgb(0, 0, 0);">
Dicha.Close ()<br style="color: rgb(0, 0, 0);">
Lecciones = Nothing




End Sub

Muy interesante el codigo, solo que es DISPOSE y no Disponse, por lo demas todo bien.

Por cierto, feliz año a todos, y que los deseos y metas sean cumplidas por cada uno.

Saludos y SALUD !

Bueno , también de mi parte un saludo a todos , y un feliz año

saludos.