利用VB查看文件夹里的图片

  Dim i As Integer '声明i为整形全局变量
        '上一张 按钮的代码：
        Const n = 20
        If i > 0 Then
            i = i - 1
            picture1.Picture = Loadpicture(APP.Path & "\" & i & ".Jpg")
        Else
            MsgBox("已经是第1张图片了")
        End If
        '下一张 按钮的代码：
        '假设有n张图片
        If i < n Then
            i = i + 1
            picture1.Picture = Loadpicture(APP.Path & "\" & i & ".Jpg")
        Else
            MsgBox("已经是第" & n & "张图片了")
        End If
        '把这n张图片重名名为0.jpg 1.jpg 2.jpg...n-1.jpg，然后复制到程序所在目录。
    End Sub
提示我错误1.未声明变量Loadpicture和APP
          2. picture1.Picture不是系统成员
      多谢