VB要怎么样才可以将两张图片同时设为壁纸并改为填充

VB要怎么样才可以将两张图片同时设为壁纸并改为填充，我现在有的是将一张照片设为壁纸，希望有同时设两张的，设完可以在桌面右键切换（这是WIN7系统自带的）
是要直接设置的哦 不要通过程序在的时侯才可以，要自带的 VB Windows 7 --------------------编程问答-------------------- 我现在有的是把一张图片设为背景，下面是我的代码，我想要通过类似的代码同时将两张照片设为背景
声明：
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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

Private Sub Command1_Click()
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\001.jpg", SPIF_UPDATEINIFILE)
End Sub --------------------编程问答-------------------- 求各位哥哥姐姐帮帮忙 --------------------编程问答-------------------- 同时设两张壁纸？
很有趣的想法

想要怎么设呢？

左右各占一半？
或是上下两分？
百页窗单双行？
要不叠加起来？
面张挖孔透底？ --------------------编程问答-------------------- 当然不是啦，是可以替换的，你有用过WIN7系统就知道了 是属于自动更换壁纸哦 --------------------编程问答-------------------- 原来不是两张同时显示啊

轮换倒是简单
上面那个按键设壁纸略修改一下就行了
如果想跟屏保一般
可以用定时器
每触发一次换一张

Private Sub Timer1_Timer()

  If A=0 Then

    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\001.jpg", SPIF_UPDATEINIFILE)

    A = 1

  Else

    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\002.jpg", SPIF_UPDATEINIFILE)

    A = 0

  End If

End Sub

--------------------编程问答-------------------- 还可修改为每次运行按当时秒值随机更换不同的……

Const SPI_SETDESKWALLPAPER = 20

Const SPIF_UPDATEINIFILE = &H1

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



Dim NowSecond As Integer

NowSecond = Second(Now)



Select Case NowSecond

  Case 0

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\000.jpg", SPIF_UPDATEINIFILE)  Case 1

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\001.jpg", SPIF_UPDATEINIFILE)

  Case 2

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\002.jpg", SPIF_UPDATEINIFILE)

  Case 3

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\003.jpg", SPIF_UPDATEINIFILE)

  '……

  Case 59

  Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自动更换壁纸目录\059.jpg", SPIF_UPDATEINIFILE)

End Select

--------------------编程问答-------------------- 汗，掉了个Case 1…… --------------------编程问答-------------------- 不是啦，我要的是WIN7系统自带的  --------------------编程问答-------------------- 就像这样的，将两张图片设为背景（上面不是有打勾吗？打勾就代表是替换背景中的一张）。而且弄完之后在右键也有下一张图片的按钮。注：这个功能是WIN7自带的，我不是要自己做一个那样的，而是利用WIN7自带的自动更换壁纸的功能 --------------------编程问答-------------------- 我猜WIN7有相应API吧。 --------------------编程问答-------------------- 嗯，不过我要的是代码哦，我想要有代码可以帮助我 --------------------编程问答-------------------- 桌面背景里面会有两张指定的照片有打上勾的

补充：VB ,  资源