• Home
 · 
• Windows System Services
 · 
• CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX

CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX

CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX

API Declarations



Const SPI_SETDESKWALLPAPER = 20
Dim a(100) As String
Dim i, x As Integer
Dim lngSuccess As Long
Dim strBitmapImage As String



Rate CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

File1.Pattern = "*.bmp"
File1.Path = "c:\windows"
x = File1.ListCount
For i = 0 To x - 1
File1.ListIndex = i
y$ = File1.FileName
a(i) = y$
'MsgBox a(i)
Next i
i = 0
End Sub

Private Sub Timer1_Timer()
If i = x - 1 Then
i = 0
End If
i = i + 1
strBitmapImage = "c:\windows\" & a(i)
'MsgBox strBitmapImage
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

End Sub