A quick question

[mr moose]

If I had a form with just a colour background and an image, can I display it as a desktop wallpaper?

To save an image:

SavePicture Picture1.Picture, "C:\mypic.bmp"

To set it as the Desktop wallpaper:

Public Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName As String, ByVal lpKeyName As Any, ByVal _
lpString As Any, ByVal lpFileName As String) As Long

Public Sub WriteINI(strsection As String, strkey As String, strkeyvalue As String, strfullpath As String)
    Call WritePrivateProfileString(strsection$, UCase$(strkey$), strkeyvalue$, strfullpath$)
End Sub

Usage

Call WriteINI("Desktop", "Wallpaper", "C:\mypic.bmp", "C:\Windows\Win.ini")