How to Change the name of your computer

Create a new project and add a module and a form to it.

Declarations

Put the following declaration in the module:

Declare Function SetComputerName Lib "kernel32" _
Alias "SetComputerNameA" (ByVal lpComputerName As _
String) As Long

Code

Place a command button on the form and in the click event add the following code:

a$ = "Hello World"
b& = SetComputerName(a$)

Now take a look at Control Panel/Network/Identification.