StopFlickering

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