Escribir el siguiente código:

Private Declare Function SetWindowLong Lib "user32" Alias
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long,
ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
Dim Resp As Long
Resp = SetWindowLong(Me.hwnd, -20, &H20&)
Form1.Refresh
End Sub

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 4 votaciones| Nota media: 7Selecciona tu Puntuación: