get names to listbox string example

i can get it by using PAT or JK’s API SPY 51

Function NickGet()
Dim dlggroupchatwindowclass As Long, splitterwindowex As Long, classcpanecontainerex As Long
Dim atlffdd As Long, syslistview As Long
dlggroupchatwindowclass = FindWindow("dlggroupchat window class", Form1.Combo1.Text)
splitterwindowex = FindWindowEx(dlggroupchatwindowclass, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
splitterwindowex = FindWindowEx(splitterwindowex, 0&, "splitterwindowex", vbNullString)
classcpanecontainerex = FindWindowEx(splitterwindowex, 0&, "classcpanecontainerex", vbNullString)
If classcpanecontainerex = 0 Then
cwndmembertree = FindWindowEx(splitterwindowex, 0&, "cwndmembertree", vbNullString)
syslistview = FindWindowEx(cwndmembertree, 0&, "syslistview32", vbNullString)
Else
classcpanecontainerex = FindWindowEx(splitterwindowex, classcpanecontainerex, "classcpanecontainerex", vbNullString)
atlffdd = GetWindow(classcpanecontainerex, GW_CHILD)
syslistview = FindWindowEx(atlffdd, 0&, "syslistview32", vbNullString)
End If
Call GetListviewItem(syslistview)
End Function

but i need to get it by same code string

Yes i tried and get this code, but still doesn’t get names tO list box.
Don’t appear me any error message but the code not work

' path to Pal registry entry containing version info
Const PalVerRegLoc As String = "HKLMSOFTWAREMicrosoftWindowsCurrentVersionUninstallPalTalk8.2"
Const PalVerRegLoc10Beta As String = "HKLMSOFTWAREMicrosoftWindowsCurrentVersionUninstallPaltalk Messenger"
Const PalVerRegLocBuildNumber As String = "HKCUSoftwarePaltalk"
' PalTalk v10.2 beta build 450
Const SendTxtIndex10Beta450 As Integer = 3
Const ChaTxtIndex10Beta450 As Integer = 4
Const NicListIndex1010Beta450 As Integer = 5
' PalTalk v10
Const Outbound_InboundTextClass10 As String = "RichEdit20W"
Const SendTxtIndex10 As Integer = 2
Const ChaTxtIndex10 As Integer = 3
Const NicListIndex10 As Integer = 5
Const SplittrWindow10 As String = "SplitterWindowEx"
Const SplittrIndex10 As Integer = 4
Const SysListCtrlClass10 As String = "atl:00a2cff0"

Function NickGet()
Dim iHnd As Long
If Len(Combo1.Text) > 1 Then
FindTheWindow (Combo1.Text)
End If
'get nicks
iHnd = SystenViewHandle
Call GetListviewItem(iHnd)
End Function
Private Function SystenViewHandle() As Long
Dim iPHnd As Long
iPHnd = getPalSubForm(WindowClass, Combo1.Text, SplittrWindow10, SplittrIndex10)
SystenViewHandle = GetTheClassHnd(iPHnd, SysListView32index, "atl:00a2cff0")
Debug.Print ("SystenViewHandle- " & SystenViewHandle) ' for testing
End Function
Public Function GetTheClassHnd(ByVal ParentTargethwnd As Long, ByVal TargetIndex As Long, TargetCls As String) As Long
'Returns a class's handle
Dim retVal As Long
mTargetSubClass = TargetCls
mTargetSubClassIndex = TargetIndex
retVal = EnumChildWindows(ParentTargethwnd, AddressOf EnumChildProc, TargetIndex)
GetTheClassHnd = mSubFormHnd
End Function