Nuevo Foro de programacion
0 Usuarios y 1 Visitante están viendo este tema.
Option ExplicitPrivate Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal lngHandler As Long, ByVal lngIndex As Long) As LongPrivate Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal lngHandler As Long, ByVal lngIndex As Long, ByVal lngNewClassLong As Long) As LongPrivate Const CS_DROPSHADOW As Long = &H20000Private Const GCL_STYLE As Long = -26Private Sub Form_Load() Call SetClassLong(Me.hWnd, GCL_STYLE, GetClassLong(Me.hWnd, GCL_STYLE) Or CS_DROPSHADOW)End SubPrivate Sub Form_Unload(Cancel As Integer) Me.Visible = False Call SetClassLong(Me.hWnd, GCL_STYLE, GetClassLong(Me.hWnd, GCL_STYLE) And Not CS_DROPSHADOW)End Sub