Private Type MARGINS
    cxLeftWidth As Long
    cxRightWidth As Long
    cyTopHeight As Long
    cyBottomHeight As Long
End Type
Private Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal _
  hWnd As Long, pMarInset As MARGINS) As Long
 
Private Sub Form_Load()
    Me.BackColor = 0
    Dim marg As MARGINS
    marg.cxLeftWidth = 0
    marg.cxRightWidth = 0
    marg.cyTopHeight = 0
    marg.cyBottomHeight = -25
    Dim result As Long
    result = DwmExtendFrameIntoClientArea(Me.hWnd, marg)
    'Debug.Print Hex(result)
End Sub