однострочный редактор, список, кнопка

[Анннютик]

Помогите, пожжжалуйста!!!
В окне приложения отобразить однострочный редактор, под ним список и ещё ниже - кнопку с надписью "Да". При нажатии на кнопку записать в окно редактора текст о нажатии кнопки.

[*PB*]

Держи студент

Declare WindowCallback(hWnd, Msg, wParam, lParam)

InitCommonControls_()
 
WindowClass.s    = "Wind" 
wc.WNDCLASSEX 
wc\cbsize        = SizeOf(WNDCLASSEX) 
wc\lpfnWndProc   = @WindowCallback() 
wc\hCursor       = LoadCursor_(0, #IDC_ARROW) 
wc\hbrBackground = #COLOR_WINDOW
wc\lpszClassName = @WindowClass 
RegisterClassEx_(@wc) 
 
Win_x=GetSystemMetrics_(#SM_CXSCREEN)/2-100
Win_y=GetSystemMetrics_(#SM_CYSCREEN)/2-50
 
hWndMain  = CreateWindowEx_(0, WindowClass, "", #WS_SYSMENU | #WS_MINIMIZEBOX, Win_x, Win_y, 200, 120, 0, 0, 0, 0)
 
ShowWindow_(hWndMain,  #SW_SHOWDEFAULT) 
UpdateWindow_(hWndMain); 
 
While GetMessage_(msg.MSG, #Null, 0, 0 ) 
  TranslateMessage_(msg) 
  DispatchMessage_(msg) 
Wend
End

Procedure WindowCallback(hWnd, Msg, wParam, lParam)
  Static hButton, hEdit, Count
  
  Select Msg
    Case #WM_CREATE
      DefaultFont = GetStockObject_(#DEFAULT_GUI_FONT)
      
      hEdit=CreateWindowEx_(#WS_EX_CLIENTEDGE	,"Edit", "", #WS_CHILD | #WS_VISIBLE | #ES_CENTER, 10,10,180,20, hWnd, 0, 0, 0)
      SendMessage_(hEdit, #WM_SETFONT, DefaultFont, 1)
      
      hButton=CreateWindowEx_(0, "Button", "Да", #WS_CHILD | #WS_VISIBLE, 70,64,80,24, hWnd, 0, 0, 0) 
      SendMessage_(hButton, #WM_SETFONT, DefaultFont, 1)

    Case #WM_COMMAND
      If hButton = lParam
        Count+1
         Text.s="Нажали на кнопку "+Str(Count)+" раз"
         SetWindowText_(hEdit, Text)
       EndIf
    Case #WM_CLOSE 
      DestroyWindow_(hWnd) 
    Case #WM_DESTROY 
      PostQuitMessage_(0) : Result  = 0 
    Default 
      Result  = DefWindowProc_(hWnd, Msg, wParam, lParam) 
  EndSelect 
  
  ProcedureReturn Result 
EndProcedure

Во сложении скомпилированная прога.

[Анннютик]

Спасииибо !!!!!