[求助]如何去掉图片上传那个进度条？

IT人

大家看一下下面的公式：

Private Sub Form_Load()
On Error GoTo Err_Form
    Me.Picture = Application.CurrentProject.Path & "\006.jpg"
Exit_Form:
    Exit Sub
Err_Form:
    MsgBox Err.Description
    Resume Exit_Form
End Sub

问题是：载入时会出现图片的进度条，很不美观呀！！

75501241

[em01]

nxjswt

上传你的例子看看

IT人

我晕，去掉了还怎么载入图片？？？？？？？

nxjswt

去掉Me.Picture = Application.CurrentProject.Path & "\006.jpg"

IT人

我来顶一下!