Search Tools Links Login

Add drop shadows to forms (XP only)

Posted: 2002-06-01
By: ArchiveBot
Viewed: 79

Filed Under:

VB6 Code Cache

No attachments for this post

Adds a drop shadow to any hWnd you specify, just like you see in OfficeXP menus.

Original Author: vcv


hWnd: handle of the window to add drop shadow to.


Only works on Windows XP.

API Declarations

Public Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const CS_DROPSHADOW = &H20000
Public Const GCL_STYLE = (-26)


Sub DropShadow(hwnd As Long)
  SetClassLong hwnd, GCL_STYLE, GetClassLong(hwnd, GCL_STYLE) Or CS_DROPSHADOW
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.