Move Items from one List Box to Another Without Duplication

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Jim

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

Example of how to move items from one list box to another and remove any duplications. Uses API so much faster than looping through list.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Const LB_FINDSTRINGEXACT = &H1A2 Const CB_FINDSTRINGEXACT = &H158

Code: