m_hWnd, 0, UserControl.ScaleX(txtFile.Left,
          UserControl.ScaleMode, vbPixels), m_lTop, lW - 4, lH - m_lTop - 2,
          SWP_FRAMECHANGED Or SWP_NOOWNERZORDER Or SWP_SHOWWINDOW
      Else
         SetWindowPos m_hWnd, 0, 2, 2, lW - 4, lH - 4, SWP_FRAMECHANGED Or
          SWP_NOOWNERZORDER Or SWP_SHOWWINDOW
      End If
   End If
End Sub

Friend Function fTranslateAccelerator(lpMsg As VBOleGuids.MSG) As Long
    
   fTranslateAccelerator = S_FALSE
   ' Here you can modify the response to the key d