sPerPixelX
            End If
            If lTop + (m_cDib.Width + lExtraY) * Screen.TwipsPerPixelY &gt;
             lMaxHeight Then
               lTop = lMaxHeight - (m_cDib.Width + 12) * Screen.TwipsPerPixelX
            End If
            Me.Move lLeft, lTop, (m_cDib.Width + lExtraX) *
             Screen.TwipsPerPixelX, (m_cDib.Height + lExtraY) *
             Screen.TwipsPerPixelY
         End If
      End If
    End If
    Render
    If (bIsTemp) Then
       sFIle = "Image " &amp; mfrmMain.NewImage