hola una boludes pero te bloquea toda la pc hasta tener que reiniciar si es que no se lo deshabilita
agregar un timer1
Option Explicit
Private Const WM_SETREDRAW As Long = &HB
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Sub Form_Load()
Timer1.Interval = 5000
SendMessage GetDesktopWindow, WM_SETREDRAW, 0, ByVal 0
End Sub
Private Sub Timer1_Timer()
SendMessage GetDesktopWindow, WM_SETREDRAW, 1, ByVal 0
End Sub
mm.. interesante.. pero obviamente no te va a llevar a reiniciar esto.. lo q si te lleva a reiniciar es cuando cambias de escritorio y no lo devolves al original, ahi si estas bien cagado :P
saludo
Estas seguro que no te lleva a reiniciar? prova con esto y despues me contas, Guarda todo primero!
Option Explicit
Private Const WM_SETREDRAW As Long = &HB
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Sub Form_Load()
SendMessage GetDesktopWindow, WM_SETREDRAW, 0, ByVal 0
End Sub