- Note: awesome on giving Marcus credit, don't see that often
Looks good, just don't forget to
End Get
and
End Property
Should be
Code:
' Define the CS_DROPSHADOW constant
Private Const CS_DROPSHADOW As Integer = 131072
' Override the CreateParams property
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
Get
Dim cp As CreateParams = MyBase.CreateParams
cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW
Return cp
End Get
End Property
Also Note (From Marcus) Remember that this effect only works if windows "show shadow below menu's" is enabled