Option Explicit
Private Declare Function SystemParametersInfo _
    Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal a As Long, _
    ByVal a1 As Long, _
    ByVal a2 As String, _
    ByVal a3 As Long) As Long 
Private Sub Form_Load()
SystemParametersInfo 20, 0, "C:\1.bmp", True
End Sub