设置墙纸

'Download by http://www.codefans.netPrivate Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _    (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, _    ByVal fuWinIni As Long) As LongDim mystr As StringDim i As IntegerPrivate Sub Command1_Click()  Dim t As Long  Randomize  i = Int((6 * Rnd) + 1)  mystr = App.Path & "\mywallpaper\mywallpaper" & i & ".bmp"  '载入墙纸图片  t = SystemParametersInfo(ByVal 20, vbnostring, ByVal mystr, &H1)  '设置墙纸End SubPrivate Sub Command2_Click()  Unload MeEnd SubPrivate Sub Timer1_Timer()End Sub