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