窗体背景图片问题，好心的朋友指导下

在窗体的加载事件中，写代码来实现。

Private Sub Form_Load()
    Dim imgFile As String
    '与mdb文件在相同文件夹下的 123.jpg图片
    imgFile = CurrentProject.Path + "\123.jpg"
    If Dir(imgFile) <> "" Then '如果这个文件存在，就加载图片，否则就不加
        Me.Picture = imgFile
    End If
End Sub