向好心人求救！

Question

用VB设置本机的桌面背景为\\server\admin\1.bmp,如果网络不通时，设本地，以下是设本地某文件为背景，不知应该修改哪里？========================
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Private Sub Form_Load()
Call map
End SubPublic Sub map()
re = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, App.Path &"map.bmp", 0)
End Sub

Answer 1

如何用VB设置本机的桌面背景为\\server\admin\1.bmp