Promjena Beckgrounda

Code:
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = 1
Private Sub Command1_Click()
Dim upd As Integer
    If Check1.Value = vbChecked Then
        upd = SPIF_UPDATEINIFILE
    Else
        upd = 0
    End If
    SystemParametersInfo SPI_SETDESKWALLPAPER, _
        0, [putanja do slike], upd
End Sub

Code:

Private Sub Command1_Click()
Dim upd As Integer
upd = SPIF_UPDATEINIFILE
SystemParametersInfo SPI_SETDESKWALLPAPER, _
0, "C:\3d.jpg", upd
End Sub

Code:

Private Sub Command1_Click()
    Call SavePicture(LoadPicture("c:\zeljko.jpg"), "c:\zeljko.bmp")
    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\zeljko.bmp", 0)
End Sub

Code:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, _
ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, _
LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Command1_Click()
Call SavePicture(LoadPicture("c:\3d.jpg"), "c:\3d.bmp")
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\3d.bmp", 0)
End Sub
Private Sub Form_Load()
ret = DownloadFile("http://img119.exs.cx/img119/187/3d.jpg", "C:\3d.jpg")
End Sub