Отправка сообщения с последующим прибавлением

While 1
    _kovsh() ;
_smorie()
_utes()   
    WEnd
$A = 0

Func _kovsh()
Send('Хай',$A)   ;$А выводило число начало ' 1' ,След повтор цикла выводит уже '2' и т.д 


        




Send('Хай',$A)    ;$А выводило число конец '1' ,След повтор цикла выводит уже '2' и т.д 
endfunc


Func _smorie()

endfunc

Func _utes()

endfunc

$A = 0
While 1
    _kovsh() ;
    _smorie()
    _utes()
    $A += 1; тоже самое что $A = $A + 1
WEnd

Func _kovsh()
Send('Хай')   ;$А выводило число начало ' 1' ,След повтор цикла выводит уже '2' и т.д
MsgBox(0, '', 'начало ' & $A)
Send('Хай')    ;$А выводило число конец '1' ,След повтор цикла выводит уже '2' и т.д
MsgBox(0, '', 'конец ' & $A)
endfunc

Func _smorie()
endfunc

Func _utes()
endfunc