为什么我改变不了桌面？？

为什么我改变不了桌面？？
为什么F:\还有其他文件，列表里却不显示？初学者，请大侠们多多指教。
QQ 548958Option ExplicitPrivate Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2Private Sub Command1_Click()
    
    List1.Clear
    Form_Load
    
End SubPrivate Sub Form_Load()
    
    Dim DirName, FileName As String
    'DirName = InputBox("输入目录名", "Changer", "C:\Documents and Settings\Guan\My Documents\My Pictures")
    DirName = "F:\"
    
    If DirName = "" Then End
    If Right(DirName, 1) <> "\" Then DirName = DirName + "\"
    List1.Tag = DirName
    DirName = DirName + "*.*"
    
    
    '列出文件名
    FileName = Dir(DirName)
    Do While FileName <> ""
        FileName = Dir()
        If FileName = "" Then Exit Do
        List1.AddItem FileName
    Loop
    
    List1.AddItem "(None)"
    
    Show
    List1.SetFocus
    List1.ListIndex = 0
    
    Label1.Caption = DirNameEnd Sub
Private Sub List1_DblClick()    Dim Temp As String
    Dim BMPFile As String
    
    Temp = List1.Tag
    
    If List1.Text = "(None)" Then
        BMPFile = "(None)"
    Else
        BMPFile = Temp + (List1)
    End If
    
    Label1.Caption = BMPFile
    
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, ByVal BMPFile, SPIF_UPDATEINIFILEEnd SubPrivate Sub List1_KeyPress(KeyAscii As Integer)    If KeyAscii = 13 Then List1_DblClick
    
End Sub