[VB.NET] XP에서 폼의 그림자 지게 하는 법

위의 그림과 같이 윈도우즈XP에서 폼(윈도우즈)에 그림자를 지게하는 법은 간단하다.
밑의 코드를 긁어 붙이기만 하면 된다.

Public Class Form1

    Protected Overrides ReadOnly Property CreateParams() _

                        As System.Windows.Forms.CreateParams

        Get

            ' 폼에 그림자 띄우기

            Const CS_DROPSHADOW = &H20000

            Dim cParam As CreateParams = MyBase.CreateParams

            cParam.ClassStyle = cParam.ClassStyle Or CS_DROPSHADOW

            Return cParam

        End Get

    End Property

End Class