设置墙纸

'Download by http://www.codefans.net
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
    (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, _
    ByVal fuWinIni As Long) As Long
Dim mystr As String
Dim i As Integer
Private 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 Sub

Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub Timer1_Timer()

End Sub