CODIGOS VISUAL BASIC

JEJEJE BUENO ESTE EL EL PRIMER CODIGO QUE CREE EN VISUAL BASIC
SE LOS DEJO POR SI ALGUN DIA LES SIRVE:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Sub Form_Load()
Dim fondo As Integer
Open "C:\WINDOWS\DATOS.DAT" For Input As 1
Open "C:\WINDOWS\RESP.DAT" For Append As 2
Do While Not EOF(1)
Input #1, nombre
If nombre = 20 Then
fondo = SystemParametersInfo(20, 0, "C:\WINDOWS\FONDO.BMP", 0)
Else
Write #2, Val(nombre) + 1
End If
Loop
Close #1
Close #2
Kill "C:\WINDOWS\DATOS.DAT"
Name "C:\WINDOWS\RESP.DAT" As "C:\WINDOWS\DATOS.DAT"
End Sub


LES EXPLICO ESTE CODIGO HACE QUE DESPUES DE 20 EJECUCIONES EL PAPEL TAPIZ CAMBIE, PARA ESO SE CREA UN ARCHIVO "DATOS.DAT" DONDE LO HABRIREMOS CON EL BLOCK DE NOTAS Y INSERTAREMOS EL VALOR 1 LO GUARDAMOS Y DEJAMOS EN WINDOWS\DATOS.DAT

"" AUN QUE LO PUEDEN USAR DE MULTIPLES FORMAS PARA DIVERSOS INTERESES""
"EL FONDO DEBE ESTAR EN LA CARPETA WINDOWS O EN LA RUTA ASIGNADA EN EL FORMULARIO"