vb中如何通过api或者其他方法获取windows操作系统登录用户名，谢谢！
rt

[解决办法]
简单的方法：
Print VBA.Environ( "USERNAME ")
[解决办法]
api函数的方法

Private Declare Function GetUserName Lib "advapi32.dll " Alias "GetUserNameA " _
(ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserName() As String
Dim cn As String
Dim ls As Long
Dim res As Long

cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
UserName = " "
End If
End Function