listbox超过32767行怎么办?分享编程源码，函数直接可以使用

超过32767时listcount,listindex都不正常了

我的文件数据比较大, 
大概有50000多行. 
一行一行写到listbox里面以后, 
最后需要用到listcount的值, 
但是居然得了个负值. 
仔细检查了一下, 
发现从0到32767还是正常, 
但是紧接着ListCount的值就变成了-32768 
然后从-32768开始增加下去了,-32767,-32766,-32765....... 

请教各位高手! 
这到底是怎么回事? 
急! 
也恳请各位为我UP!!多谢多谢!!! 

多谢分享……

VB code

Private Declare Function SendMessage Lib "user32 " Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Private Const LB_GETCOUNT = &H18B '获取Listbox控件行数
Private Const LB_GETCURSEL = &H188 '获取Listbox控件当前选中第几行
Private Const LB_SETCURSEL = &H186 'Listbox控件设置选择第几行

Private Sub Command2_Click()
Dim Count As Long
Count = SendMessage(List1.hwnd, LB_GETCOUNT, 0, 0)
End Sub

Private Sub Command3_Click()
dim id as long
id = SendMessage(List1.hwnd, LB_GETCURSEL, 0, 0)
End Sub

Private Sub Command4_Click()
call SendMessage(List1.hwnd, LB_SETCURSEL, 200, 0)
End Sub

有需用写函数或写代码写软件的朋友可以加我，我VB方面用了10来年，经验丰富，可以给你不少指点的
有兴趣的可以一起组个网上团队，搞个群开个培训班一起学习
主要做网页提交，信息发布，数据库管理系统，自动化软件，POST提交，图像文件上传等方面的软件

VB code

Dim LC as Long
LC=List1.ListCount
if (LC<0) LC=65536&+LC