Public Type scbDimensions
    Width As Long
    Height As Long
End Type

Public Type scbRect
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

Private Declare Function GetFocus Lib  "user32"  () As Long
Private Declare Function GetSystemMetrics Lib  "user32"  (ByVal nIndex As Long) As Long
Private Declare Function GetWindowRect Lib  "user32"  (ByVal hwnd As Long, lpRect As scbRect) As Long
Private Declare Function SetWindowPos Lib  "user32"  (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetDC Lib  "user32"  (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib  "user32"  (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetDeviceCaps Lib  "gdi32"  (ByVal hdc As Long, ByVal nIndex As Long) As Long
  
Const SM_CXSCREEN =  0 
Const SM_CYBORDER =  6 
Const SM_CYSCREEN =  1 
Const SWP_NOZORDER = &H4
Const LOGPIXELSY =  90 
Const LOGPIXELSX =  88 
Const HWND_DESKTOP As Long =  0 

Public ctlFocSmartDateControl As Control
Public mobfrmFromCal As Form
 
   
Public Sub scbFormPlacement(ByRef ctl As Control, frm As Form, _
                            Optional lLeft As Long =  0 , _
                            Optional lTop As Long =  0 , _
                            Optional lAddLeft As Long =  0 , _
                            Optional lAddTop As Long =  0 )
    Dim ctlRect As scbRect
    Dim frmDimensions As scbDimensions
    Dim frmRect As scbRect
    Dim scrDimensions As scbDimensions
    
    ctlRect = scbControlRect(ctl)
    frmDimensions = scbFormDimensions(frm)
    scrDimensions.Width = GetSystemMetrics(SM_CXSCREEN)
    scrDimensions.Height = GetSystemMetrics(SM_CYSCREEN)
    If (scrDimensions.Width - ctlRect.Right) > ctlRect.Left -  1000  Then
        frmRect.Left = ctlRect.Left + lLeft
    Else
        frmRect.Left = ctlRect.Right - frmDimensions.Width + lLeft
    End If
    If (scrDimensions.Height - ctlRect.Bottom) > ctlRect.Top Then
        frmRect.Top = ctlRect.Bottom + lTop
    Else
        frmRect.Top = ctlRect.Top - frmDimensions.Height + lTop + lAddTop
    End If
    SetWindowPos frm.hwnd,  0 , frmRect.Left, frmRect.Top, _
            frmDimensions.Width, frmDimensions.Height, SWP_NOZORDER
    'frm.Visible = True
End Sub

Public Function scbControlRect(ctl As Control) As scbRect
    ctl.Visible = True
    ctl.SetFocus
    GetWindowRect GetFocus(), scbControlRect
End Function

Public Function scbFormDimensions(frm As Form) As scbDimensions
    Dim frmRect As scbRect
    GetWindowRect frm.hwnd, frmRect
    scbFormDimensions.Width = frmRect.Right - frmRect.Left
    scbFormDimensions.Height = frmRect.Bottom - frmRect.Top
End Function