Codejock Developer Community : support vista aero in client area for controls http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 22 Apr 2026 06:01:50 +0000 Sun, 28 Oct 2007 14:58:48 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=8559 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[support vista aero in client area for controls : Private Type Margins Left...]]> http://forum.codejock.com/forum_posts.asp?TID=8559&PID=27764&title=support-vista-aero-in-client-area-for-controls#27764 Author: gaudetm
Subject: 8559
Posted: 28 October 2007 at 2:58pm

 
 
Private Type Margins
    Left As Long: Right As Long: Top As Long: Bottom As Long
End Type
 
Private Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal h As Long, m As Margins) As Long`
 
sub Form1_Load()
    Dim m As Margins
    m.Bottom = -1
    Me.BackColor = vbBlack
    'if osversion > 6 then
        'if DwmIsCompositionEnabled then 'Is Aero Turned On
            DwmExtendFrameIntoClientArea Form1.hwnd, m
        'end if
    'end if
End sub
]]> Sun, 28 Oct 2007 14:58:48 +0000 http://forum.codejock.com/forum_posts.asp?TID=8559&PID=27764&title=support-vista-aero-in-client-area-for-controls#27764