Declare Function SystemParametersInfo Lib "user32" Alias _
      "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As _
      Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    Public Const SPI_SETDESKWALLPAPER As Integer = 20
    Dim result As Integer
    Dim img As String
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        img = "c:\Kaffeetasse.bmp"
        result = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, img, 0)
    End Sub