修改另一个程序中LISTVIEW信息的问题？

模块：
Public Type LV_ITEM
mask As Long
iItem As Long
iSubItem As Long
state As Long
stateMask As Long
pszText As String
cchTextMax As Long
iImage As Long
lParam As Long
iIndent As Long
End Type
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const LVM_FIRST = &H1000
Public Const LVM_GETITEMA = (LVM_FIRST + 75)
Public Const LVM_SETITEMTEXT = (LVM_FIRST + 116)
Public Const LVIF_TEXT = &H1窗体：
Private Sub ListView_SetSubItemText(ByVal lvHwnd As Long, _
 ByVal Index As Long, _
 ByVal SubItemIndex As Long, _
 ByVal Text As String)
 Dim li As LV_ITEM
 Dim r As Long
 li.iItem = Index
 li.iSubItem = SubItemIndex
 li.mask = LVIF_TEXT
 li.pszText = Space$(256)
 li.cchTextMax = 256
 li.pszText = Text '& Chr$(0)
 r = SendMessage(lvHwnd, LVM_SETITEMTEXT, Index, li)
End Sub
....
call ListView_SetSubItemText(....)
为什么这样还是改不了另一个程序中LISTVIEW控件中的TEXT？
请大家帮帮忙