能帮我看下怎么调不出来吗？

Private Const SPI_SETDESKWALLPAPER = 10
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByValfuWinIni As Long) As Long
Sub Main()
    Dim myvalue
    SPIFlags% =()
    Ramdomize
   
    myvalue = 10 * Rnd
    bmpfiles = "E:\zm" + CStr(Int(1 + myvalue)) + ".bmp"   '图片路径是E:\zm
    ret& = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal bmpfiles, SPIFlags)
    
End Sub我是刚学VB的，这是一个开机变换桌面的小程序，能帮我看下吗？
不甚感激~~~