support vista aero in client area for controls

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


    

 
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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
gaudetm Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 23 September 2006 Location: Canada Status: Offline Points: 134	Post Options Post Reply Quote gaudetm Report Post Thanks(0) Quote Reply Topic: support vista aero in client area for controls 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