VB 用API读取别的软件的LISTBOX中的某项和项目的总数

我有原代码，给你吧，很好用的，你所要求的它都可以实现，界面如图。

使用很简单：启动后将鼠标移到别的软件的LISTBOX，按F5，软件LISTBOX的内容就被复制到它的LISTBOX中了。最下面是代码工程的下载地址：

‘Module1------------------------------

 Option Explicit

 Type POINTAPI

x As Long

y As Long

End Type

Public Const LB_GETTEXT = &H189

Public Const LB_GETCOUNT = &H18B

Public Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)

Public Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,&n