Private Declare Function LockWindowUpdate Lib "User32" (ByVal hWndLock As Long) As Long
Private Sub StopFlicker(ByVal lHWnd as Long) Dim lRet As Long 'oggetto da 'freezare' lRet = LockWindowUpdate(lHWnd) End Sub Private Sub Release() Dim lRet As Long lRet = LockWindowUpdate(0) End Sub |