Hello Kevin,
first I'd like to thank you for your reply to my posting, I am really honored, no joke.
Below is the code. I didn't included all lines since it will be too long but I think I've included everything related to the thermometer bar.
*-------------------------
*--Beginning of the method
*-------------------------

liMessage_counter = 1
lcTherm_Message="A process is happening"
=msgsvc(lcTherm_Message,liMessage_counter)

*Setting Thermometer Bar Spacing

liThermCounter = INT(99/liRecord_Count)

LOCATE
SCAN FOR v_Journal_Status.User_selected = .T. AND ;
v_Journal_Status.lPrinted_Flag = .T. AND;
v_Journal_Status.In_Balance = .T.

**************Manipulating with data****************

* Update Thermometer Bar for each journal posted

liMessage_counter=liMessage_counter+ liThermCounter

lcTherm_Message="Journal: "+ ALLTRIM(v_Journal_Status.cType_Code) + " - " + ;
ALLTRIM(v_Journal_Status.cJournal_no)

=msgsvc(lcTherm_Message,liMessage_counter)

IF lnRetVal = REQUERY_SUCCESS

*-----------------------------------------------------------------
*--- Begin Transaction Processing for each journal
*-----------------------------------------------------------------

BEGIN TRANSACTION

**********Continue manipulating with data**************

*-------------------------------------------------------------------
*--- If success End Transaction, Otherwise Rollback all Updates etc.
*-------------------------------------------------------------------

IF lnRetVal <> FILE_OK
ROLLBACK
ELSE
END TRANSACTION
ENDIF

ENDIF
ENDSCAN

* Remove Thermometer from screen

liMessage_counter=100
=msgsvc(" ",liMessage_counter)
*----------------
*--End of method
*----------------
Like I've said, it jumps on the second time and stays like that. I've tried to play with MsgSvc.cRow and cCol to set it to the some value but it didn't work.

Thank you very much.
Best Regards
Igor