|
Ho usato questa funzione che sembra funzionare correttamente:
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const WM_SETREDRAW = &HB
Public Function LockControl(objX As Object, _
ByVal bLock As Boolean)
Call SendMessage(objX.hWnd, WM_SETREDRAW, _
bLock, ByVal 0&)
If bLock = False Then
On Error Resume Next
objX.Refresh
End If
End Function
|