Problem with FILE LOCKED when PREMIER 9.2 attempts to save an open image . . .

    Private Sub PCCA_OpenImage(My_PhaseLetter As String)

        'Create the FULL FILE NAME
        Dim My_FullFileName As String = _
            textBox_Image.Text & _
            " + PCCA-" & My_PhaseLetter & _
            ".tif"

        'Close all open images without prompting user
        CloseAllForm.ClosingAllAction=CloseAllForm.CloseAllFormAction.actionNoAll
        ThisApplication.Windows.CloseAll()

        'Open the file selected by the user
        Dim list1 = New List(1)
        With Application.DocumentCommands.OpenImage(Nothing)
            .Filenames = New String() {My_FullFileName}
            .Visible = True
            .Run(list1)
        End With

        'Trigger the TILE function to make this image as big as possible
        Application.MDICommands.TileVertically(Nothing).Run()

    End Sub

    Private Sub PCCA_SaveImage(My_PhaseLetter As String)

        'Set up ERROR HANDLING
        On Error Resume Next

        'Connect with the ACTIVE IMAGE
        Dim doc1
        With Application.DocumentCommands.Active(Nothing)
            .Run(doc1)
        End With

        'Create the FULL FILE NAME
        Dim My_FullFileName As String = _
            textBox_Image.Text & _
            " + PCCA-" & My_PhaseLetter & _
            ".tif"

        'Workaround to save JPG image to TIF file with calibration, switch to TIF writer
        ThisApplication.ActiveImage.File.Format = _
            "tif"

        'Set IMAGE FULL FILE NAME
        ThisApplication.ActiveImage.File.FullPathName = _
            My_FullFileName

'        -- Commented out because of glitch in 9.2 --
'        Call the SAVE AS function
'        With Application.DocumentCommands.SaveAs(Nothing)
'            .FileName = _
'                My_FullFileName
'            .Run(doc1)
'        End With

'        -- Workaround because of glitch in 9.2 - START --

        'Create TEMP FILE NAME
        Dim My_TempFullFileName As String = _
            MacroDir & _
            "\Temp" & _
            ".tif"

        'Call the SAVE AS function
        With Application.DocumentCommands.SaveAs(Nothing)
            .FileName = _
                My_TempFullFileName
            .Run(doc1)
        End With

        'Close all open images without prompting user
        CloseAllForm.ClosingAllAction=CloseAllForm.CloseAllFormAction.actionNoAll
        ThisApplication.Windows.CloseAll()

        'Delete the DESTINATION FILE
        Kill _
            My_FullFileName

        'Rename the TEMP FILE to the DESTINATION FILE
        Rename _
            My_TempFullFileName, _
            My_FullFileName

'        -- Workaround because of glitch in 9.2 - END --

        'Call the routine to perform the OPEN IMAGE
        PCCA_OpenImage(My_PhaseLetter)

    End Sub