帮忙看代码哦！

Question

form上创建OLE，并且跟画图图片联合
代码：
Private Sub Command38_Click()
    Dim filenum
    filenum = FreeFile
    filenum = FreeFile
    Open App.Path & "\" & "DZProject Bmp\11.bmp" For Binary As filenum
    OLE2.SaveToFile (filenum)
    Close filenum
End Sub
按钮为上述代码，保存在DZProject Bmp下，名字为11.bmp,画图完成后，点保存。
虽然保存了11.bmp图片，可是打不开为什么会这样哦。