setting wallpaper(goes white)

[Johnson]

any one see any thing wrong?

    Public Shared SPI_SETDESKTOPWALLPAPER As Integer = 20
    Public Shared SPIF_UPDATEINIFILE As Integer = 1
    Public Shared SPIF_SENDWININICHANGE As Integer = 2

    Public Shared Sub Main(ByVal args() As String)
        If (args.Length = 1) Then
            SystemParametersInfo(SPI_SETDESKTOPWALLPAPER, 0, args(0), _
            (SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE))
        End If
    End Sub

    Private Declare Sub SystemParametersInfo Lib "User32.dll" Alias "SystemParametersInfoA" (ByVal action As Integer, _
    ByVal iparam As Integer, ByVal vparam As String, ByVal opt As Integer)

'_setDesktopwallpaper() is called

 

[Johnson]

any one?......................