Ekki málið. Þetta er af
http://www.vb-world.net/' Change the Windows wallpaper using the SystemParametersInfo API.
Private Sub Command1_Click()
Dim t As Long Dim Wallpaper As String
Dim filename As String
CommonDialog1.Action = 1
filename = CommonDialog1.filename
Wallpaper = filename
If Wallpaper = “” Then Exit Sub
t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1)
If t = 0 Then
MousePointer = 0
MsgBox “Error changing wallpaper”
Exit Sub
End If
End Sub