Option Explicit

Sub cmdClose_Click ()
  Call LISTSRCH_cmdClose_Click
End Sub

Sub Form_Activate ()
  LISTSRCH_Activate
End Sub

Sub Form_Load ()
  LISTSRCH_Load
End Sub

Sub lstSearch_Click ()
  LISTSRCH_lstSearch_Click lstSearch, txtSearch
End Sub ' lstSearch_Click

Sub lstSearch_KeyDown (KeyCode As Integer, Shift As Integer)
  LISTSRCH_lstSearch_KeyDown
End Sub

Sub lstSearch_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  LISTSRCH_lstSearch_MouseDown
End Sub

Sub txtSearch_Change ()
  LISTSRCH_txtSearch_Change lstSearch, txtSearch
End Sub ' txtSearch_Change

Sub txtSearch_GotFocus ()
  LISTSRCH_txtSearch_GotFocus
End Sub

Sub txtSearch_KeyDown (KeyCode As Integer, Shift As Integer)
  LISTSRCH_txtSearch_KeyDown KeyCode
End Sub

Sub txtSearch_KeyPress (KeyAscii As Integer)
  LISTSRCH_txtSearch_KeyPress KeyAscii
End Sub