手，各位，我如何在text、或lable示前本算用名？
用environment.username不行啊。
各位，！

[解决办法]
Dim a As Object
Set a = CreateObject( "Wscript.Network ")
Label1.Caption = a.ComputerName '计算机名称
Label2.Caption = a.UserName '计算用户名