在VB编程中，获取电脑用户名称的方法有以下几种：
使用`Environ`函数
可以通过`Environ`函数获取当前登录的用户名。例如，将用户名赋值给一个文本框的`Text`属性：
```vb
Text1.Text = Environ（"USERNAME"）
```
还可以获取计算机名称：
```vb
Text1.Text = Environ（"COMPUTERNAME"）
```
使用`GetComputerName` API函数
可以通过调用`GetComputerName`函数来获取计算机的完整名称。这需要声明`GetComputerName`函数并传递一个缓冲区来存储计算机名称。例如：
```vb
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" （ByVal lpBuffer As String, nSize As Long） As Long
Private Sub Command1_Click（）
Dim Name As String
Dim Length As Long
Length = 255
GetComputerName Name, Length
Name = Left（Name, Length - 1）
Label1.Caption = Name
End Sub
```
使用`GetUserName` API函数
可以通过调用`GetUserName`函数来获取当前登录的用户名。这同样需要声明`GetUserName`函数并传递一个缓冲区来存储用户名。例如：
```vb
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" （ByVal lpBuffer As String, nSize As Long） As Long
Private Sub Form_Click（）
Dim StrT As String * 255
GetUserName StrT, 255
Print StrT
End Sub
```
建议
简单方法：对于简单的需求，使用`Environ（"USERNAME"）`或`Environ（"COMPUTERNAME"）`即可获取当前用户名或计算机名称。
高级需求：如果需要获取所有用户的名称，可以通过遍历`C:\Documents and Settings`下的所有文件夹来实现，但这方法较为复杂且效率不高。
选择哪种方法取决于你的具体需求和编程环境。对于大多数情况，使用`Environ`函数或`GetUserName` API函数即可满足需求。