Reply To: Upload your program for jan 2005 contest here

Dim progman As Long
Dim shelldlldefview As Long
Dim syslistview As Long

progman = FindWindow(“progman”, vbNullString)
shelldlldefview = FindWindowEx(progman, 0&, “shelldll_defview”, vbNullString)
syslistview = FindWindowEx(shelldlldefview, 0&, “syslistview32”, vbNullString)

If syslistview = 0 Then
Msgbox “Error: Cannot find window”
Exit Sub
End If

thats not for paltalk, if it was it would say progman = FindWindow(“paltalk 7.0”, vbNullString)