support vista aero in client area for controls
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Suite Pro
Forum Description: Topics Related to Codejock Suite Pro
URL: http://forum.codejock.com/forum_posts.asp?TID=8559
Printed Date: 16 November 2024 at 4:37pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com
Topic: support vista aero in client area for controls
Posted By: gaudetm
Subject: support vista aero in client area for controls
Date 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
|