怎样在VB的picture控件中随机插入图片 ？？？？？

Dim filebmp(1000) As String '照片数组，这里设置1001张(加下标0)
Private Sub Command1_Click()
On Error GoTo cw
Dim fn As String
Dim s As Long
Path = "F:\照片mdz\日照片\PT\" '照片根目录
fn = Dir(Path, vbNormal)
Do While fn <> "" '循环检查文件夹里是否有文件
If AccessType(fn) = "jpg" Or AccessType(fn) = "jpeg" Or AccessType(fn) = "bmp" Or AccessType(fn) = "gif" Then filebmp(s) = fn: s = s + 1 '筛选照片类型，符合列入循环照片数组
fn = Dir
Loop
If filebmp(0) = "" Then Exit Sub '表示没有符合的照片
Randomize
rano = Int(Rnd() * s) '通过照片的数目来随即播放图片
Picture1.Picture = LoadPicture(Path & filebmp(rano))
Exit Sub
cw:
'什么都不处理
End Sub

Public Function AccessType(filenames As String) As String '获取文件类型函数，返回代入filenames参数的文件全名中的文件后缀名
dlive = InStr(filenames, ".")
FileLens = Len(filenames)
AccessType = LCase(Mid(filenam