为什么在送行以下程序时，会出现以下错误：“类型不匹配"
请各位“大虾”指点迷经。
Private Sub List1_DblClick()
If List1.Selected(0) = True Then
Form1.Picture = "C:\Pictures\sunset.jpg"
ElseIf List1.Selected(1) = True Then
Form1.Caption = "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\blue.jpg"
ElseIf List1.Selected(2) = True Then
Form1.Caption = "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\water.jpg"
ElseIf List1.Selected(3) = True Then
Form1.Caption = "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\winter.jpg"
Else
Form1.Caption = "D:\myfile\My Pictures\girl\16.jpg"
End If
End Sub

“虾”兄！非常感谢！