传说中的系统用户名?

登陆的时候怎么样把他记下来啊
能说的更明白些吗

Public UserName as string

sub Main
call login
...
end sub

Form Login--

Button Login_Click:
...
if VerifyPwd = True then --如果验证口令通过
UserName = txtUser.text
end if
...

Form ResetPWD---

Button Reset_Click:
...
sqlStr = "Select * from Oper where User = '"+UserName+"' and Pwd = '"+txtOldPwd.text+"'"
...

哦，我明白了，最关键的是UserName = txtUser.text
在登陆的时候就把他记下，然后用public定义全局，用的时候直接调用

所谓全局变量就是你在程序的任何部分都可以使用 而不用自己再去定义
在你代码运行过程中 它的值是可保留的

哦，我明白了，最关键的是UserName = txtUser.text
在登陆的时候就把他记下，然后用public定义全局，用的时候直接调用

谢谢各位的指教