用VB简单实现屏幕取词,附带控件