Stop the Flickering

Stop the Flickering

This code stops the annoying flicker often seen when you pack an object with data. Test this code with the controls that bother you most:

Private Declare Function SendMessage Lib "user32" _	Alias "SendMessageA" (ByVal hWnd As Long, _	ByVal wMsg As Long, ByVal wParam As Long, _	lParam As Any) As LongPrivate Const WM_SETREDRAW = &HBPublic 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 IfEnd Function


Share the Post: