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