Reply To: I need help getting paltalk room submenus

oh okay i thought it was the old one any way here is the for the old one

Dim x As Long

Dim palbutton As Long



x = FindWindow("#32770", vbNullString)

palbutton = FindWindowEx(x, 0&, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

palbutton = FindWindowEx(x, palbutton, "palbutton", vbNullString)

Call SendMessageLong(palbutton, WM_LBUTTONDOWN, 0&, 0&)

Call SendMessageLong(palbutton, WM_LBUTTONUP, 0&, 0&)



If palbutton = 0 Then

Msgbox "Error: Cannot find window"

Exit Sub

End If