问一个关于另存为的API调用问题!急!急!急!急!

dim lreturn string

lReturn = APISaveFileName(GroundManage.hWnd, "另存为", "图片文件 (*.bmp)" & Chr(0) & "*.bmp" & Chr(0), True)
    
    Open lReturn For Binary As #1
        Put #1, , arrData()
    Close #1
    
    Set objPropBag = Nothing --------------------编程问答--------------------

补充：VB ,  API