'Replace the AutoSelectItem in the .bas file and Text1_Change() with the following.
'Add a public sub to the same Module file (.bas file).
Public Sub AutoSelectItem(lstAny As ListBox, txtAny As TextBox)
Dim intStart As Integer
Dim strTemp As String
Static intLeftOff As Integer...
'Add following code to the MDIForm_Unload event
'This code unloads all forms in "Forms" collection of VB.
Private Sub MDIForm_Unload(Cancel As Integer)
Dim frm As Form
For Each frm In Forms
'Unload each form but not the MDI until
'all others are unloaded...
'Add followings to a Module file (.bas)
'You can use the same code for combo box also.
'Just have to use different constant and change the
'type in the AutoSelectItem argument from ListBox to ComboBox
'this constant is used by list box
Public Const LB_FINDSTRING = &H18F
'this constant is...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.