Correct VB6 code for popup calendar display location

Require code correction to prevent current drop down calendar from displaying below the bottom edge of the application. Will provide source code for the calendar and the code calling the calendar. Calendar and selection of date works fine except if it is called from a row near the bottom of the screen the calendar extends below the screen. VB6 application. ‘// Calling Sub Private Sub dgGLT_CellButtonClick(ByVal row As Long, ByVal col As Long) Dim lfrmNewPopup As frmPopup Select Case col Case myColREFD Set lfrmNewPopup = New frmPopup [login to view URL] dgGLT, row, col Set lfrmNewPopup = Nothing