VB怎么在窗体名称出显示当前用户？

类似于这种
是怎么显示出来的呀？

可以新建一个标准模块
在里面写
public currentName as string

在登陆的地方，currentName = 当前用户
在 form_load 的地方
me.Text = currentName