Sombra del formulario VB.NET

net API cambia de largo a entero, excepto para variables especiales como &H20000

El formulario tiene sombras a la derecha y debajo

Formulario de clase pública1

Const privado CS_ DROPSHADOW = & H20000

Const privada GCL_STYLE = (-26)

Función de declaración privada GetClassLong Lib "user32" Alias ​​​​"GetClassLongA" (ByVal hwnd como entero, ByVal nIndex como Integer) Como Integer

Función de declaración privada SetClassLong Lib "user32" Alias ​​​​"SetClassLongA" ( ByVal hwnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) Como Integer

Private Sub Form1_Load( ByVal remitente As System.Object, ByVal e As System.EventArgs) Procesar MyBase.Load

SetClassLong(Me.Handle, GCL_STYLE, GetClassLong(Me.Handle, GCL_STYLE) O CS_DROPSHADOW)

Fin Sub

Fin Clase