Change the active image DPI

Public Sub SetDPI

    Dim i As Integer, s As String
    If ThisApplication.ActiveImage IsNot Nothing Then
        With ThisApplication.ActiveImage
            i = .DotsPerInchX
            s = InputBox("Enter new DPI value:", "Set DPI", i.ToString)
            If Not String.IsNullOrEmpty(s) Then
                If Integer.TryParse(s, i) AndAlso i > 0 Then
                    .DotsPerInchX = i
                    .DotsPerInchY = i
                Else
                    MsgBox("Invalid DPI value!")
                End If
            End If
        End With
    End If
End Sub

The macro works (or seems to work) correctly but if I save the image (Tiff format) with the new DPI value (eg 1200 dpi) and reload it inside IPP7, the dpi reported are always set to 100 .

Any solution?

Thank you

Maurizio