VB 得到Windows登录用户名

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

Private   Sub  Command1_Click()
Dim  username  As   String
Dim  result  As   Long

username  =   String ( 255 ,  0 )  ' 分配地址空间
result  =  GetUserName(username,  255 )
If  result  <>   0   Then
    username  =   Left (username,  InStr (username,  Chr ( 0 ))  -   1 )  ' 去掉多余的字符
     Print  username  ' 显示用户名
     Print   Len (username)  ' 显示用户名长度
Else
     MsgBox  ( " 取用户名失败. " )
End   If
End Sub