module1.bas

一个浏览API的源代码 应该还不错的吧

Attribute VB_Name = "Module1"
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const LB_ADDSTRING = &H180
Public Source As String
Public c() As Integer
Public Const LB_SELECTSTRING = &H18C
Public Typeid As String