When adding a large number of items to a list box, you can greatlyspeed up the process by disabling redraws of it. A quick call to SendMessagedoes the trick. Sandwich one to turn off redraws and one to turn them backon around a call to the routine that fills the list box, as shown here.Another method is to set the list box’s Visible property to False, butthat may not offer as clean an appearance.

 Declare Function SendMessage Lib "User" _ (ByVal hWnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, lParam As Any) As Long Global Const WM_SETREDRAW = &HB nRet& = SendMessage(List1.hWnd, WM_SETREDRAW, _ False, 0&) Call FillMyList(List1) nRet& = SendMessage(List1.hWnd, WM_SETREDRAW, _ True, 0&)