I think I have seen this for IWB, but not for CB so here it is:
'
' titles.cba
'
DECLARE "kernel32.dll", SetConsoleTitle Alias SetConsoleTitleA(lpConsoleTitle:STRING),INT
DECLARE ConsoleTitle(title:string)
OPENCONSOLE
def toptxt:string
print
ConsoleTitle("CB Console Title")
INPUT "Input NEW Title: ",toptxt
ConsoleTitle(toptxt)
PRINT
PRINT "Press ESC to stop "
do:until INKEY$ = CHR$(27)
CLOSECONSOLE
END
'
'Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨
' ConsoleTitle - Setting Console Titles
'
SUB ConsoleTitle(title:string)
SetConsoleTitle(title)
RETURN
Enjoy!