VB文本框里正在输入数据怎么转换到程序标题列里？

VB文本框里正在输入数据怎么转换到程序标题列里？表里列提示正在输入的窗口名，怎么获得窗口名？

文本框的change事件中，调用me.caption = "正在输入..."