Obtener Usuario

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

Private Sub Command1_Click()

    Dim strBuffer As String * 256

    GetUserName strBuffer, Len(strBuffer)

    Label1.Caption = strBuffer

End Sub