Форум АНТИЧАТ - Показать сообщение отдельно - VBA

Здравствуйте! как сделать чтобы при открытии файла мойфайл.док на рабочем столе менялась картинка?

Код:

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

сам запускаю работает, а когда открываю документ, то ничего не получается

Спасибо!