SPI_SETDESKWALLPAPER = 20
Dim duvar_kagidi As String
Dim duvar_kagidi = "C:\Documents and Settings\$user\Local Settings\Temporary Internet Files\dosya.bmp"
x = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.