Vb6 以全屏显示文件夹中的图片

我有两组图片保存在两个文件夹中。我想程序显示这些图片随机在中心的全屏形式。我正试图用visualbasic实现这一点

Private Sub VScroll1_Change()

End Sub

Private Sub Command1_Click()
    Form2.Show
    Form1.Hide
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

   If Interval > 0 Then
       Timer1.Enabled = True
   Else
       Timer1.Enabled = False
       Form2.Hide
       End
   End If

End Sub

---

如果您使用图像控件显示图片，并且图像控件名称为“Image1”，则每次更改图片时，您都可以使用以下将图像重新定位到中间位置

Image1.Left = (Me.ScaleWidth - Image1.Width) / 2
Image1.Top = (Me.ScaleHeight - Image1.Height) / 2

增加了以下内容：

您必须在表单中放置一个FileListBox控件，并将其命名为

f

Dim folder As String
Dim n As Integer

Private Sub Timer1_Timer()
    n = Rnd() * f.ListCount

    Image1.Picture = LoadPicture(folder & "\" & f.List(n))

    Image1.Left = (Me.ScaleWidth - Image1.Width) / 2
    Image1.Top = (Me.ScaleHeight - Image1.Height) / 2

End Sub

Private Sub Form_Load()
    folder = "D:\VLTR"

    f.Visible = False
    f.Pattern = "*.jpg"
    f.Path = folder
End Sub

---

现在我想知道如何从文件夹中随机加载和显示图片？请问您使用的是什么vb版本？我用VB6实现了这一点，但用“模式”显示了错误，该方法或数据成员找不到VisualBasic6.0EnterpriseEdition