'
' AllocConsole
'
' Author: Joe Strazzere
'
' Example using the Kernel32 function "AllocConsole"
'
Ttl$="Joe"
a = External("kernel32","AllocConsole")
msgbox(str$(a))
a = External("kernel32","SetConsoleTitleA",Ttl$)
msgbox(str$(a))
a = External("kernel32","FreeConsole")
msgbox(str$(a))
