IcoDll := "Shell32.dll"

handles := []
while (i := A_Index) < 3
   Loop 3
      handles.Push( AddPicButton(10 + (A_Index - 1)*52, 40, 32, IcoDll, 22 + (i - 1)*3 + A_Index, Func("Action")) )

Gui, Add, Radio, vRadio1 x20 y10 Checked, Set1
Gui, Add, Radio, vRadio2 x+30 yp, Set2
toggle := Func("ChangeSet").Bind(handles, "", 1)
Loop 2
   GuiControl, +g, Radio%A_Index%, % toggle

ChangeSet(handles, 1)
Gui, Show, w166 h90
Return

AddPicButton(x, y, size, IcoDll, n, action, GuiID := 1)  {
   static WS_EX_CLIENTEDGE := 0x200, WS_EX_DLGMODALFRAME := 0x1
   
   Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 hwndhButtonDown +E%WS_EX_CLIENTEDGE% Icon%n% hidden, % IcoDll
   Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 hwndhButtonUp +E%WS_EX_DLGMODALFRAME% Icon%n% hidden, % IcoDll
   OnClick := Func("OnClick").Bind(hButtonUp, hButtonDown, action, GuiID)
   GuiControl, +g, % hButtonUp, % OnClick
   Return hButtonUp
}

OnClick(hUp, hDown, action, GuiID)  {
   GuiControl, %GuiID%: Hide, % hUp
   GuiControl, %GuiID%: Show, % hDown
   KeyWait, LButton
   GuiControl, %GuiID%: Hide, % hDown
   GuiControl, %GuiID%: Show, % hUp
   MouseGetPos,,,, ControlID, 2
   ( ControlID = hUp && action.Call() )
}
   
Action()  {
   MouseGetPos,,,, Control
   MsgBox, % "Кнопка " . RegExReplace(Control, ".*?(\d+)", "$1")//2
}

ChangeSet(handles, set, GuiID := 1)  {
   ( !set && set := SubStr(A_GuiControl, 0) )
   for k, v in handles
      GuiControl, % GuiID . ":" . ( (set = 2) ^ (k < 4) ? "Show" : "Hide" ), % v
}

GuiClose()  {
   ExitApp
}

SetWorkingDir, % A_ScriptDir
global IcoDll
IcoDll := "ClipMgrIcons.dll"
If !FileExist(IcoDll) ; Загрузка библиотеки иконок при её отсутствии
	URLDownloadToFile, http://content.screencast.com/users/teadrinker/folders/Files/media/7d4f94ae-cdd3-467d-b3d1-786f5e8af91c/ClipMgrIcons.dll?downloadOnly=true, % IcoDll

Menu, Tray, Icon, %IcoDll%, 4 ; Иконка в заголовке окна и трее
Gui, Show, w200 h70
AddPicButton(8, 8, 32, 1, "Action1")
AddPicButton(60, 8, 16, 2, "Action2")
Return

; Функция добавляет "кнопку" с графическим рисунком
AddPicButton(x, y, size, n, action, GuiID := 1)  {
	global
	WS_EX_CLIENTEDGE := 0x200, WS_EX_DLGMODALFRAME := 0x1

	sizeDown := size + 2
	Gui, %GuiID%: Add, Pic, x%x% y%y% w%sizeDown% h-1 +E%WS_EX_CLIENTEDGE% hidden Icon%n% vDown%Action%, % IcoDll ; Вдавленная кнопка (скрываем)
	Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 +E%WS_EX_DLGMODALFRAME% Icon%n% v%Action% gAnimation, % IcoDll ; Отжатая кнопка (показываем)
}

Animation: ; Обработка нажатия на кнопку
	GuiControl, %A_Gui%: Hide, %A_GuiControl%
	GuiControl, %A_Gui%: Show, Down%A_GuiControl%
	KeyWait, LButton
	GuiControl, %A_Gui%: Show, %A_GuiControl%
	MouseGetPos,,,, ControlID, 2
	GoTo %A_GuiControl%
Return

Action1:
	MsgBox This Action1
Return

Action2:
	AddPicButton(94, 8, 16, 6, "Action3")
	GuiControl, 1: Hide, %A_GuiControl%
	GuiControl, 1: Hide, Down%A_GuiControl%
Return

Action3:
	MsgBox This Action3
Return

GuiClose:
	ExitApp

SetWorkingDir, % A_ScriptDir
IcoDll := "ClipMgrIcons.dll"
if !FileExist(IcoDll)
   URLDownloadToFile, http://content.screencast.com/users/teadrinker/folders/Files/media/7d4f94ae-cdd3-467d-b3d1-786f5e8af91c/ClipMgrIcons.dll?downloadOnly=true, % IcoDll

Menu, Tray, Icon, %IcoDll%, 4

AddPicButton(8, 8, 32, IcoDll, 1, "Action1")
AddPicButton(60, 8, 32, IcoDll, 6, "Action2")
Gui, Show
return

AddPicButton(x, y, size, IcoDll, n, action, GuiID := 1)  {
   Global
   WS_EX_CLIENTEDGE := 0x200, WS_EX_DLGMODALFRAME := 0x1
   
   sizeDown := size + 2
   Gui, %GuiID%: Add, Pic, x%x% y%y% w%sizeDown% h%sizeDown% +E%WS_EX_CLIENTEDGE% Icon%n% v%Action% gAnimation, % IcoDll
   Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h%size% hwndh%Action% +E%WS_EX_DLGMODALFRAME% Icon%n% vUp%Action%, % IcoDll
}

Animation:
GuiControl, %A_Gui%: Hide, Up%A_GuiControl%
KeyWait, LButton
GuiControl, %A_Gui%: Show, Up%A_GuiControl%
MouseGetPos,,,, ControlID, 2
if (ControlID = h%A_GuiControl%)
   GoTo %A_GuiControl%
return

Action1:
msgbox Action1
return

Action2:
msgbox Action2
return

FileInstall, ClipMgrIcons.dll, ClipMgrIcons.dll
global IcoDll
IcoDll := A_ScriptDir "\ClipMgrIcons.dll"
if !FileExist(IcoDll) ; Загрузка библиотеки иконок при её отсутствии
	URLDownloadToFile, % "http://content.screencast.com/users/teadrinker/folders/Files/media/7d4f94ae-cdd3-467d-b3d1-786f5e8af91c/ClipMgrIcons.dll?downloadOnly=true", % IcoDll

; Иконка в заголовке окна и трее
Menu, Tray, Icon, %IcoDll%, 4
Gui, Show, w200 h70

AddPicButton(8, 8, 32, 1, "Action1")
global hButton2 ; указатель на эту кнопку используется в нашем Action2
hButton2 := AddPicButton(60, 8, 16, 2, "Action2")
Return

; Функция добавляет "кнопку" с графическим рисунком и возвращает указатель на неё
AddPicButton(x, y, size, n, action, GuiID := 1) {
	static WS_EX_CLIENTEDGE := 0x200, WS_EX_DLGMODALFRAME := 0x1

	sizeDown := size + 2
	Gui, %GuiID%: Add, Pic, x%x% y%y% w%sizeDown% h-1 hwndhButtonDown +E%WS_EX_CLIENTEDGE% hidden Icon%n%, % IcoDll ; Вдавленная кнопка (скрываем)
	Gui, %GuiID%: Add, Pic, x%x% y%y% w%size% h-1 hwndhButtonUp +E%WS_EX_DLGMODALFRAME% Icon%n%, % IcoDll ; Отжатая кнопка (показываем)
	handler := Func("OnClick").Bind(hButtonUp, hButtonDown, action, GuiID)
	GuiControl, +g, % hButtonUp, % handler
	Return hButtonUp
}
; Обработка нажатия на кнопку
OnClick(IdButtonUp, IdButtonDown, action, GuiID) {
	GuiControl, %GuiID%: Hide, % IdButtonUp
	GuiControl, %GuiID%: Show, % IdButtonDown
	KeyWait, LButton
	GuiControl, %GuiID%: Hide, % IdButtonDown
	GuiControl, %GuiID%: Show, % IdButtonUp
	MouseGetPos,,,, ControlID, 2
	( ControlID = IdButtonUp && Func(action).Call() )
}

Action1() {
	MsgBox, This Action1
}

Action2() {
	AddPicButton(94, 8, 16, 6, "Action3")
	GuiControl, 1: Hide, % hButton2
}

Action3() {
	MsgBox, This Action3
}

GuiClose:
	ExitApp