.386
.model flat, stdcall
option casemap :none

include kgen3.inc

.data
szlmao db "i win", 0

.code

start:

	invoke GetModuleHandle,NULL
	mov	hInstance,eax
	invoke InitCommonControls
	invoke DialogBoxParam,hInstance,IDD_DIALOG1,NULL,ADDR DlgProc,NULL
	invoke ExitProcess,0


DlgProc proc hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
 	mov	eax,uMsg
 	.if	eax==WM_INITDIALOG
 	.elseif	eax==WM_COMMAND
		mov eax,wParam
		mov ecx,eax
		shr ecx,16
		.IF cx==BN_CLICKED
			.IF ax==IDC_BTN1
				invoke MessageBox,0,offset szlmao, addr szlmao, MB_OK
			.ENDIF
		.ENDIF
 	.elseif	eax==WM_CLOSE
 		invoke	EndDialog,hWin,0
 	.else
 		mov	eax,FALSE
 		ret
 	.endif
 	mov	eax,TRUE
 	ret
DlgProc endp

end start