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

Private Sub Form_Load()
Dim username As String * 200
Dim return_name As Long
return_name = GetUserName(username, 200)
Label1.Caption = username

Dim comp_name As String * 200
Dim comp As Long
comp = GetComputerName(comp_name, 200)
Label2.Caption = comp_name
End Sub