#Include GetChildHWND.ahk
!z::
ActiveWindow:= WinExist("A")
WinGetClass, class, A
ControlGetFocus, FocusedControl, ahk_id %ActiveWindow%
if not FocusedControl
	return
c_id:=GetChildHWND(ActiveWindow,FocusedControl)
SendMessage, 0x18b, 0, 0, %FocusedControl%, A

;************Number of items
;MsgBox (Number of items=%ErrorLevel%)
n_of_it=%ErrorLevel%
Loop, %n_of_it%
{
SendMessage, 0x187, a_index-1, 0, %FocusedControl%, A
if ErrorLevel=1 
   SendMessage, 0x185, 0, a_index-1, %FocusedControl%, A
   else
   SendMessage, 0x185, 1, a_index-1, %FocusedControl%, A
}