devxlogo

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
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist